sheets den veri aktarım makro yardım

[desk]

Eklemiş olduğum dosyada yardımcı olabilirseniz çok sevinirim. Kodda yanlara ufak açıklamalar anlama yönünden çok faydalı olacak zamanınız olursa çok sevinirim.

 

[Orion1]

Dosyanız ektedir.

Sub aktar_59()
Dim k As Range, sat As Long
Sheets("SABLON").Select
Range("B8").Value = ""
Range("C10,C12,G15").ClearContents
sat = Sheets("VERI").Cells(65536, "A").End(xlUp).Row
If Range("B3").Value = "" Then Exit Sub
If sat < 2 Then Exit Sub
Set k = Sheets("VERI").Range("A2:A" & sat).Find(Range("B3").Value, , xlValues, xlWhole)
If Not k Is Nothing Then
    Range("B8").Value = k.Offset(0, 1).Value
    Range("C10").Value = k.Offset(0, 2).Value
    Range("C12").Value = k.Offset(0, 3).Value
    Range("G15").Value = k.Offset(0, 4).Value
End If
End Sub

 

[desk]

Çok tşk ederim. Sitem = Açıklamasız oluşu.

 

[Orion1]

Çok tşk ederim. Sitem = Açıklamasız oluşu.

Bu konuda çalışmanızı ve açıklamaları sizin yazmanızı istesem,acaba çok bir şeymi isterim.
İsterseniz bir deneyin bakalım.araştırın yap boz ile deneyin.
Kolay gelsin.

 

[desk]

Açıklama olmayınca araştırmakta bazen fayda etmiyor çünkü anlayamıyorsun.
şimdi mesela burda sheets den seçip getiriyorsun. Ben bunu klasörün içindeki dosyadan istediğim sheets den seçerek yapmak istiyorum. Araştırdım klasörü seçtim
Dim Klasör As Object
Set Klasör = CreateObject("Shell.Application").BrowseForFolder(0, "Lütfen bir klasör seçiniz !", 1)
bundan sonrasını yapamadım. Yazdım bozdum. Dahada bozuldu.