aktarım

[ulutanas]

arkadaşlar ekdeki dosyayı incelerseniz bir sorum olacaktı basittir mutlaka ama işin içinden çıkamadım malesef

 

[leumruk]

Selamlar,
Örneği deneyiniz:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [c3:c15]) Is Nothing Or Target = "" Then Exit Sub
Set s = Sheets("ürün fiyatları")
Set Bul = s.Range("a2:a" & [a65536].End(3).Row).Find(Target, LookIn:=xlValues, LookAt:=xlWhole)
If Not Bul Is Nothing Then
Target.Offset(0, 3) = s.Cells(Bul.Row, "b")
End If
End Sub

 

[ulutanas]

Leumruk bey bir yardım daha ltf.

Leumruk bey ilginiz için çok teşekkür ederim sizden aldığım yardımla bir sayfa yapmıştım ama sizden bir ricam olacak ekdeki dosyaya da aynı işlemi uygulayabilirmisiniz rica etsem. Teşekkür ederim.

 

[leumruk]

Dosya ekte.

 

[ulutanas]

Leumruk bey siz bir harikasınız ilginiz için çok teşekkür ederim

 

[leumruk]

Leumruk bey siz bir harikasınız ilginiz için çok teşekkür ederim

Rica ederim. İyi çalışmalar.:hey:

 

[ulutanas]

leumruk bey fiyat listesi bölümüne 12 üründen sonrasını yazdığımda fiyatları aktarmıyo rica etsem dosyayı tekrar kontrol edebilirmisiniz. teşekkürler.

 

[leumruk]

Merhaba,
Sanırım şu satırla alakalı:
Bu satırı:

If Intersect(Target, [c3:c15]) Is Nothing Or Target = "" Then Exit Sub

Aşağıdaki satırla değiştirin.

If Intersect(Target, Range("c3:c"&[c65536].End(3).Row)) Is Nothing Or Target = "" Then Exit Sub

 

[ulutanas]

sanırım daha önceki yolladığınız dosyayı kontrol ettiniz son yolladığınız dosyada farklı komutlar var. kontrol edebilirmisiniz rica etsem. teşekkürler.

 

[leumruk]

sanırım daha önceki yolladığınız dosyayı kontrol ettiniz son yolladığınız dosyada farklı komutlar var. kontrol edebilirmisiniz rica etsem. teşekkürler.

Kodu şununla değiştirin, kırmızı kısım yeni eklendi.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [b4]) Is Nothing Or Target = "" Then Exit Sub
Set s = Sheets("ürün fiyatları")
Set Bul = s.Range("a2:a" & [COLOR="Red"]s[/COLOR].[a65536].End(3).Row).Find(Target, LookIn:=xlValues, LookAt:=xlWhole)
If Not Bul Is Nothing Then
Target.Offset(3, 0) = s.Cells(Bul.Row, "b")
End If
End Sub

Yukarıdaki dosyayı da güncelledim.