Kod Neden Hata Veriyor

[Reis_27]

Dim x As Long
Dim y As Long
x = Sheets("Sheet1").Range("B" & Rows.Count).End(xlUp).Row
For y = 2 To x

If sheet3.Range("F3").Value = sheet1.Cells(y, "B").Value Then


sheet3.Range("B9").Value = sheet1.Cells(y, "B").Value
sheet3.Range("B10").Value = sheet1.Cells(y, "C").Value
sheet3.Range("B11").Value = sheet1.Cells(y, "D").Value
sheet3.Range("B12").Value = sheet1.Cells(y, "E").Value
sheet3.Range("B13").Value = sheet1.Cells(y, "F").Value
sheet3.Range("B14").Value = sheet1.Cells(y, "G").Value
sheet3.Range("B15").Value = sheet1.Cells(y, "H").Value
sheet3.Range("B16").Value = sheet1.Cells(y, "I").Value

End If
Next y

 

[Reis_27]

Başka yöntemle çekebilir miyim bilgileri diğer sayfaya hocam

 

[Korhan Ayhan]

Bu şekilde olmaz.

Kod nerede hata veriyor belirtmemişsiniz. Ayrıca bu tarz sorularınızda örnek dosya paylaşırsanız daha sağlıklı cevaplar alırsınız.

 

[Reis_27]

If sheet3.Range("F3").Value = sheet1.Cells(y, "B").Value Then


Burda sarı oluyor hocam

 

[Korhan Ayhan]

Örnek dosyanızı paylaşınız.

 

[Reis_27]

https://dosya.co/j9qromgpojkm/Çalışma.xlsm.html

Korhan Hocam bir bakarsanız sevinirim. Teşekkürler

 

[Reis_27]

İndir Çalışma

Dosyayı indir Çalışma

dosya.co

Korhan Hocam bir bakarsanız sevinirim. Teşekkürler

 

[Korhan Ayhan]

Sayfa isimlerinizi aşağıdaki gibi düzeltip deneyiniz.

Sheets("Sheet3")

 

[Reis_27]

olmadı hocam

 

[Korhan Ayhan]

Hepsini aynı şekilde değiştirdiniz mi?

 

[Reis_27]

https://dosya.co/nel4kr9cthne/Çalışma.jpg.html


Hocam Böyle Hata Veriyor.

Sheets("Sheet3")


Böyle yapınca hata vermiyor ama Sheet1 deki bilgileri Sheet3 getirmiyor.

 

[Reis_27]

Korhan Hocam bunun başka bir yolu yok mu?

 

[Korhan Ayhan]

Kod içinde gördüğünüz bütün Sheet3 yazanları Sheets("Sheet3") olarak değiştirin.

Kod içinde gördüğünüz bütün Sheet1 yazanları Sheets("Sheet1") olarak değiştirin.

 

[Reis_27]

Korhan Hocam Çok teşekkür ederim. Sorun çözüldü