Makro ile düşeyara yapmak

[achil19]

Herkese merhaba,
Makroya yeni başlayan biri olarak, öğrenmek için çok basit bir şey sormak istiyorum.
"Sayfa 1" deki "İsim" kolonunun karşısındaki "Numara" ları "Sayfa 2" ye makro ile düşey arayla getirebilir misiniz.
Bu şekilde öğrenmem daha kolay oluyor. Neyin nereden geldiğini anlıyorum.
Çok teşekkürler herkese. Örnek dosya aşağıdaki linktedir

https://drive.google.com/open?id=0B6jo34yj3V6rTHJjTTBBbjM4YTg

 

[Orion1]

Buyurun.

DOSYAYI İNDİR

Sub arabul59()
Dim sh As Worksheet, sonsat1 As Long, sonsat2 As Long
Dim i As Long, k As Range
Set sh = Sheets("Sayfa1")
sonsat1 = sh.Cells(Rows.Count, "A").End(xlUp).Row
sonsat2 = Cells(Rows.Count, "A").End(xlUp).Row
Range("B2:C" & Rows.Count).ClearContents
For i = 2 To sonsat2
    Set k = sh.Range("A2:A" & sonsat1).Find(Cells(i, "A").Value, , xlValues, xlWhole)
    If Not k Is Nothing Then
        Cells(i, "B").Value = k.Offset(0, 2).Value
        Cells(i, "C").Value = k.Offset(0, 1).Value
    End If
Next i
MsgBox "İşlem tamamlanmıştır." & vbLf & "evrengizlen@hotmail.com"
End Sub

 

[vardar07]

Sayın Orion1 detaylı kod yazmış. Eline sağlık. Bende öğrenme amaçlı olduğu için basit bir şey hazırlamıştım. Alternatif olsun .
Modül içine ekleyip deneyiniz:

Sub dene()
For i = 2 To 7 ' Alınacak veri sayısı kadar döngü (2 başlangıç satırı; 7 bitiş satırı)
Sayfa2.Cells(i, "B") = WorksheetFunction.VLookup(Sayfa2.Cells(i, "A"), Sayfa1.Range("A2:C10"), 3, 0)
'verinin yazılacağı yer = Üşeyara(Bulunacak veri ,Alınacak sayfa adı( Tablo adresi),sütun sayısı, eşleştirme)
Next i ' döngü sonu
End Sub

 

[1903emre34@gmail.com]

Merhabalar,

Konu başlığıyla dolaylı yönden ilgili bir sorum olacak;

Aynı dosya içerisinde Açık ve kapalı excel çalışmaları bulunmaktadır,

Açık olan dosyadaki, 600_Yurt İçi Satışlar hesabını, Kapalı çalışmasında (600) hesabı bulacak, C8 hücresinde (Açık) 100 TL, tutarlar eşleşdiği takdirde, E8 hücresine doğru yazacak şekilde nasıl kod oluşturabiliriz

 

[Orion1]

Sorunuzu yeni bir başlık açarak sorunuz.Zira açılan konu cevaplandırıldı.

 

[1903emre34@gmail.com]

Ustad

Yeni Konu başlığı açmak istemedim iki tane nedeni var birincisi fazla konu gürültülü yapmamak ikincisi yeni konu açarak çok fazla cevap alacağım öyle düşüncem yoktur zaten bu konu acilmadan once boyle bir konu acacaktim sizin kapalı dosya larda vba kodlar iyi olduğu için sıcağına yardım almak istedim neyse kolay gelsin

 

[achil19]

Emek veren herkese çok teşekkür ederim. Elinize sağlık