makroda hücredeki isme göre kopyalamayı yönlendirme

[hasan akyol]

:kafa: :kafa: :kafa:
Selamlar

Benim makroda takıldığım nokta

Sub Düğme20_Tıklat()
Range("c3:c7").Select
Selection.Copy
Sheets("LİST").Select
Range("a1").Select
ActiveCell.Offset(1, 0).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
Application.CutCopyMode = False
Sheets("İN").Select
Application.Run "stkyn.xls!Düğme21_Tıklat"

End Sub
Sub Düğme21_Tıklat()
Range("c3,c6,c7").Select
Range("c7").Activate
Selection.ClearContents
Range("c3").Select

End Sub


Buraya kadar tamam
Fakat ben aynı kopyayı bir liste hücresinden aldığı değişken adreslerle
Ã?RNEÐİN Aliye kopyala Veliye kopyala
YADA Ali ise oraya Veli ise buraya Can ise şuraya gibi
Farklı adreslerede koyalamak istiyorum

Elimde bazı örnekler var fakat fakat sanırım ben yukarıdaki makro ile birleştiremiyorum

İlginize teşekkürler

Hasan Akyol

 

[isakarakus]

merhaba, hoşgeldiniz..
anladığım kadarıyla çözüm basit ama,
bir dosya ekleyebilirseniz ne demek istediğinizi daha iyi anlayabiliriz.

 

[hasan akyol]

syn isakarakus
dosyayı gönderiyorum
açıklama içinde

saygılar selamlar

 

[hasan akyol]

selamlar
sorularım
ilgilenmeye değmeyecek kadar basitmi
cevabı zaman alacak kadar zormu
saçmamı
benmi aceleciyim
yoksa bir hatammı oldu

saygılar