- Katılım
- 17 Temmuz 2005
- Mesajlar
- 3
: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
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