Soru Makro ile Düşeyara

[TURKOLOG]

Herkese Merhaba aşağıdaki kodda düşey ara Sadece B14 teki satırın G14hücresine geliyor.
Ama G15
G16
G17
diye kodu nasıl revize edebilirim.
Yardımcı olabilecek olan var mi.

Sub Duseyara()

    Dim s1 As Worksheet, s2 As Worksheet, i As Long, c As Range, sat As Long

  

    Set s1 = Sheets("Personel")

    Set s2 = Sheets("Buro")

  

    Application.ScreenUpdating = False

    s2.Select

 

    sat = 14

  

    

    For i = 2 To s1.Cells(Rows.Count, "B").End(xlUp).Row

        Cells(sat, "G") = WorksheetFunction.VLookup((Cells(sat, "B")), Worksheets("Personel").Range("B:Q"), 16, 0)

 

    Next i

  

End Sub

 

[Necdet]

Merhaba,
Tüm aranan değerleri bulmak istiyorsanız VBA'nın Find komutunu kullanmalısınız.
Genel Yapı :

With Range("a:a")
    Set c = .Find(ArananDeger, lookin:=xlValues, LookAt:=xlWhole)
    If Not c Is Nothing Then
        Ilk_Adres = c.Address
        Do
            Msgbox "Bulunan Değer ve Satır No : " & c.value & " " & c.Row
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> Ilk_Adres
    End If
End With

 

[TURKOLOG]

Merhaba,
Tüm aranan değerleri bulmak istiyorsanız VBA'nın Find komutunu kullanmalısınız.
Genel Yapı :

With Range("a:a")
    Set c = .Find(ArananDeger, lookin:=xlValues, LookAt:=xlWhole)
    If Not c Is Nothing Then
        Ilk_Adres = c.Address
        Do
            Msgbox "Bulunan Değer ve Satır No : " & c.value & " " & c.Row
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> Ilk_Adres
    End If
End With

Hocam ben personel sayfasından büro sayfasına veri çekiyorum. Yazdığınız kod çalışmadı malesef

 

[TURKOLOG]

Hocam malesef çalışmadı kod