VERİ KOPYALAMA

[agunes4242]

K1 HÜCRESİNE YAZDIGIM EV. NO SAYISINI. VERİ SAYFASINDAKİ B SUTUNUDAKİ EVRAK NO DAKİ BİLGİLERİ Q SUNUNUNA AKTARAN Bİ MAKRO YAPMAK İSTİYORUM.

 

[veyselemre]

Sub aktar()
    If ActiveSheet.Name <> "İHZAR" Then Exit Sub
    Dim evNo, bul, veri
    evNo = Range("K1").Value
    If evNo = "" Then Exit Sub
    Range("Q1:Q18").ClearContents
    With Sheets("VERİ")
        Set bul = .Range("B:B").Find(evNo)
        If Not bul Is Nothing Then
            veri = .Range("A" & bul.Row).Resize(, 20).Value
            With Application
                veri = .Transpose(.Index(veri, 0, Array(2, 4, 5, 3, 16, 7, 8, 9, 10, 11, 14, 15, 17, 18, 19, 20, 12, 13)))
            End With
            Range("Q1").Resize(18).Value = veri
        End If
    End With
End Sub

 

[agunes4242]

ellerinize sağlık güzel olmuş daha bilgisayarın başına yeni oturdum. beni büyük bir dertten kurtardın üstat.