Veri bulup getirme makrosu

[ala15001400]

Arkadaşlar aşağıdaki makroyu tamamlama konusunda yardımcı olursanız çok sevinirim.

Elimizde bir çalışma kitabı var. Bizim işlemimiz bu çalışma kitabının iki sayfası arasında veri akışının sağlanması.

ilgili iki sayfanın Adı;
-Karar 2012
-All

Makro şöyle çalışacak.
-Karar 2012 sayfasına gidecek.
-Burada B4 seçecek. Kopyalayacak.
-Sonra All sayfasını seçecek.
-Kopyaladığı değeri burada A2'ye yapıştıracak.
-Sonra aynı sayfada J12'de oluşan değeri kopyalayacak.
-Karar 2012 sayfasına gidecek
-Kopyaladığı değeri burada S4 hücresine yapıştıracak.

Burada bir döngü var. Şöyleki All sayfasında işlem yaptığı
A2 ve J12 hücreleri hep sabittir.

Değişen Karar 2012 sayfasındaki hücre numarasıdır. Yani yukarıdaki örnekte
B4 için All sayfasında oluşan değeri S4 hücresine yapıştırmaktadır. Ondan sonra B5 için oluşan değeri S5, B6 için oluşan değeri S6 gibi devam edecektir.

Makro bu çalışmasını B4, B5, B6 .....Taki bir sonraki B sütününda değer olmayana kadar yapacaktır. Umarım bu döngüyü oluşturma konusunda birisi yardımcı olabilir.

Şimdiden teşekkür ederim.






Sub Makro2()
'
' Makro2 Makro
'

'
Sheets("Karar 2012").Select
Range("B4").Select
Selection.Copy
Sheets("All").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("J12").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Karar 2012").Select
Range("S4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

 

[asi_kral]

Merhaba
Örnek dosya ekler misiniz_?
İçerisinde açıklama yaparsanız şu şekilde olacak diye yardımcı olmaya çalışayım.