DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub CommandButton1_Click()
Range("a4:I65536").ClearContents
For i = 2 To Sheets("BÜRO VERİ").[b65536].End(3).Row
On Error Resume Next
If Sheets("BÜRO VERİ").Cells(i, 2).Value = Cells(1, 1).Value Then
s = [b65536].End(3).Row + 1
For f = 1 To 9
Cells(s, f).Value = Sheets("BÜRO VERİ").Cells(i, f).Value
Next
End If
Next
End Sub
Sorgulama yapıldığında istenen bilgilerin dışındaki hücrelerde başv çıkıyor bunları nasıl yok edebilirim
=+'VERİ GİRİŞİ'!#BAŞV!
B550 den sonraki değil istediğim bilgilerden hemen sonraki hücrede başlıyor. Ekteki dosyada bürolardan sorgu bölümüne bakarsanız görürsünüz teşekkürler
vba şifresi 7146