makro kodu bilgi ufak bir detay

[Endless033]

Private Sub CommandButton2_Click()
aranan = InputBox("üye numarasını giriniz", "Arama Yap", " ")
Range("B:B").Find(aranan).Select
sil_satır = ActiveCell.Row
TextBox1.Value = Worksheets("VERİ").Cells(sil_satır, 1)
TextBox2.Value = Worksheets("VERİ").Cells(sil_satır, 2)
TextBox3.Value = Worksheets("VERİ").Cells(sil_satır, 3)
TextBox4.Value = Worksheets("VERİ").Cells(sil_satır, 4)
TextBox5.Value = Worksheets("VERİ").Cells(sil_satır, 5)
TextBox6.Value = Worksheets("VERİ").Cells(sil_satır, 6)
TextBox7.Value = Worksheets("VERİ").Cells(sil_satır, 7)
TextBox8.Value = Worksheets("VERİ").Cells(sil_satır, 8)
TextBox9.Value = Worksheets("VERİ").Cells(sil_satır, 9)
TextBox10.Value = Worksheets("VERİ").Cells(sil_satır, 10)
TextBox11.Value = Worksheets("VERİ").Cells(sil_satır, 11)
TextBox12.Value = Worksheets("VERİ").Cells(sil_satır, 12)
TextBox13.Value = Worksheets("VERİ").Cells(sil_satır, 13)
TextBox14.Value = Worksheets("VERİ").Cells(sil_satır, 14)
TextBox15.Value = Worksheets("VERİ").Cells(sil_satır, 15)
TextBox16.Value = Worksheets("VERİ").Cells(sil_satır, 16)
End Sub

ARKADAŞLAR Range("B:B").Find(aranan).Select bu kısım hata veiyor video izleyerek yapıyordum onda tek bir sayfa çalışma yapıyordu
bende birden çok sayfa var ben veri isimli sayfadan B:B sutunu aratacağım range önüne ne yazabiliriz

 

[Endless033]

worksheets("VERİ") yazıyorum olmuyor

 

[ÖmerFaruk]

1. Aranan değer VERİ sayfası B sütununda birebir aynı şekilde mevcut mu?

2. BU LİNK SİZE FAYDALI OLACAKTIR

 

[Endless033]

1. Aranan değer VERİ sayfası B sütununda birebir aynı şekilde mevcut mu?

2. BU LİNK SİZE FAYDALI OLACAKTIR

Evet

 

[GursoyC]

veri ile VERİ excel açısından farklı sayfalardır.
Doğru yazdığınızdan emin olun.