Ürünün fiyatını kodla çekme

Epakambalaj · 19 May 2020

Hayırlı akşamlar üstadlarım.

B hücresinde ürün girdiğimizde
C hücresine satış fiyatını çekmek istiyoruz.

Ürün listemiz D sütununda
Fiyat listemiz E sütununda.

Şimdiden teşekkür ediyorum

Feyzullah · 19 May 2020

Kod:

Görüntülemek için giriş yapmanız gerekmektedir.
(8 satır)

Epakambalaj · 19 May 2020

Ellerinize sağlık @Feyzullah hocam.

Aynı mantık üzerinden,

C hücresini çift tıklandığımızda,
B deki ürüne göre fiyat getirmek mümkün müdür?

Burada B hücresine veri girdiğimizde C de veri alıyoruz.
B de veri var olduğu halde, C deki veriyi manuel olarak sildiğimizi düşünelim.
B yi çift tıklasak C ye veri gelecek.
Peki içi boş olan C yi çift tıkladığımızda yine C de verinin gelmesi mümkin müdür?

Feyzullah · 19 May 2020

Kod:

Görüntülemek için giriş yapmanız gerekmektedir.
(7 satır)

hakki83 · 19 May 2020

Feyzullah' Alıntı:
Kod:

Görüntülemek için giriş yapmanız gerekmektedir. (8 satır)

Sayın Feyzullah merhaba
yukardaki kodların

A sütununda ürün listesi, B sütununda ise fiyatları olduğunu düşünürsek
ve

E sütununa girdiğimiz kodları
F sütununa fiyatları getirecek şekilde değiştirir misiniz

Yapmaya çalıştım ama olmadı hata verdi.
5 leri 2 yaptım
4 leri 1 yaptım olmadı

Epakambalaj · 19 May 2020

Feyzullah' Alıntı:
Kod:

Görüntülemek için giriş yapmanız gerekmektedir. (7 satır)

Ellerinize sağlık üstadım.
Kadir Geceniz Mübarek Olsun.
Çözüldü.

Epakambalaj · 19 May 2020

hakki83' Alıntı:
Sayın Feyzullah merhaba
yukardaki kodların

A sütununda ürün listesi, B sütununda ise fiyatları olduğunu düşünürsek
ve

E sütununa girdiğimiz kodları
F sütununa fiyatları getirecek şekilde değiştirir misiniz

Yapmaya çalıştım ama olmadı hata verdi.
5 leri 2 yaptım
4 leri 1 yaptım olmadı

iyi günler

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 5 Then Exit Sub
If Target.Value = "" Then Me.Cells(Target.Row, 3) = ""
Set ara = Range("A1:A" & Cells(Rows.Count, 2).End(xlUp).Row).Find(Target.Value)
If Not ara Is Nothing Then
Me.Cells(Target.Row, 6) = Cells(ara.Row, "B")
End If
End Sub

doğru anladıysam eğer.

Epakambalaj · 19 May 2020

tam çözülmedi

Hayırlı akşamlar @Feyzullah hocam.

Tam olarak uyarladığımız kod aşağıda.
Kodlar tek tek çalışıyor fakat bir araya getirince sadece ilk kod çalışıyor.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Target.Column <> 8 Then Exit Sub
Set ara = Range("R1:R" & Cells(Rows.Count, 4).End(xlUp).Row).Find(Me.Cells(Target.Row, 7))
If Not ara Is Nothing Then
Target = Cells(ara.Row, "S")
End If

If Target.Column <> 11 Then Exit Sub
Set ara = Range("R1:R" & Cells(Rows.Count, 4).End(xlUp).Row).Find(Me.Cells(Target.Row, 10))
If Not ara Is Nothing Then
Target = Cells(ara.Row, "S")
End If

If Target.Column <> 14 Then Exit Sub
Set ara = Range("R1:R" & Cells(Rows.Count, 4).End(xlUp).Row).Find(Me.Cells(Target.Row, 13))
If Not ara Is Nothing Then
Target = Cells(ara.Row, "S")
End If

End Sub

hakki83 · 19 May 2020

Epak ambalaj' Alıntı:
iyi günler

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 5 Then Exit Sub
If Target.Value = "" Then Me.Cells(Target.Row, 3) = ""
Set ara = Range("A1:A" & Cells(Rows.Count, 2).End(xlUp).Row).Find(Target.Value)
If Not ara Is Nothing Then
Me.Cells(Target.Row, 6) = Cells(ara.Row, "B")
End If
End Sub

doğru anladıysam eğer.

Sayın Epak ambalaj çok teşekkürler, fakat elle girdiğimiz sütunu silmek istediğimizde hata veriyor. Benim denediğimde de aynj hata olmuştu. Sanıyorum Sayın Feyzullah’ın elinin değmesi lazım.

Feyzullah · 20 May 2020

hakki83' Alıntı:
Sayın Epak ambalaj çok teşekkürler, fakat elle girdiğimiz sütunu silmek istediğimizde hata veriyor. Benim denediğimde de aynj hata olmuştu. Sanıyorum Sayın Feyzullah’ın elinin değmesi lazım.

Kod:

Görüntülemek için giriş yapmanız gerekmektedir.
(9 satır)

Feyzullah · 20 May 2020

Epak ambalaj' Alıntı:
tam çözülmedi

Hayırlı akşamlar @Feyzullah hocam.

Tam olarak uyarladığımız kod aşağıda.
Kodlar tek tek çalışıyor fakat bir araya getirince sadece ilk kod çalışıyor.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Target.Column <> 8 Then Exit Sub
Set ara = Range("R1:R" & Cells(Rows.Count, 4).End(xlUp).Row).Find(Me.Cells(Target.Row, 7))
If Not ara Is Nothing Then
Target = Cells(ara.Row, "S")
End If

If Target.Column <> 11 Then Exit Sub
Set ara = Range("R1:R" & Cells(Rows.Count, 4).End(xlUp).Row).Find(Me.Cells(Target.Row, 10))
If Not ara Is Nothing Then
Target = Cells(ara.Row, "S")
End If

If Target.Column <> 14 Then Exit Sub
Set ara = Range("R1:R" & Cells(Rows.Count, 4).End(xlUp).Row).Find(Me.Cells(Target.Row, 13))
If Not ara Is Nothing Then
Target = Cells(ara.Row, "S")
End If

End Sub

Kod:

Görüntülemek için giriş yapmanız gerekmektedir.
(5 satır)

hakki83 · 20 May 2020

Feyzullah' Alıntı:
Kod:

Görüntülemek için giriş yapmanız gerekmektedir. (9 satır)

Sayın Feyzullah oldu. İlginiz için teşekkür ederim. Saygılar

Epakambalaj · 24 May 2020

Feyzullah' Alıntı:
Kod:

Görüntülemek için giriş yapmanız gerekmektedir. (5 satır)

Ellerinize sağlık @Feyzullah üstadım.
Allâh iyiliğinizi versin.
Bu vesile ile hepinizin bayramı mübârek olsun.
Çözüldü

Feyzullah · 24 May 2020

Epak ambalaj' Alıntı:
Ellerinize sağlık @Feyzullah üstadım.
Allâh iyiliğinizi versin.
Bu vesile ile hepinizin bayramı mübârek olsun.
Çözüldü

Sağolun, Esen Kalın.

	Formülle Diğer Sayfadan Ürün Fiyatını Getirme AhmetRasim 5 Ocak 2021 Genel Konular ile İlgili Sorular
	Excel ile Optik Form Kodlama merakli 11 Eyl 2024 Genel Konular ile İlgili Sorular
	Formülü Koda Çevirip Mevcut Kodlara Ekleme cakarem 18 Eyl 2020 Genel Konular ile İlgili Sorular
	Hesaplama Yapan Kodlar ( 4 İşlem ) hakki83 11 May 2020 Genel Konular ile İlgili Sorular
	Kodlarda düzenlenmesi hk. Ömer BARAN 3 May 2020 Genel Konular ile İlgili Sorular

Ürünün fiyatını kodla çekme

Kısa Açıklama