HÜcre Doluysa Bİr Alt HÜcreye Yazmak

[gbaldogan]

ARKADAŞLAR ŞÖYLE BİR MACRO YAZDIM:

Sub Makro16()
'
' Makro16 Makro
' Makro Tuzla Tersanecilik ve Turizm A.Ş. tarafından 07.09.2007 tarihinde kaydedildi.
'
Range("C6:C18").Select
Sub Düğme139_Tıklat()
Selection.Copy
Range("D25").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D4").Select
Application.CutCopyMode = False
Selection.Copy
Range("C25").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C6").Select
Selection.Interior.ColorIndex = 36
Range("B6").Select
'
End Sub


ANCAK D25 VE C25 DOLU İSE BİR ALT SATIRA İNSİN İSTİYORUM. o da doluysa bir alt satıra. ancak bu komutun neresine ne ekleyeceğim bilemedim yadım eder misiniz?:yardim:

 

[Necdet]

Merhaba,

C ve D aynı şekilde olacağını varsayarak :

Sub Makro16()
'
' Makro16 Makro
' Makro Tuzla Tersanecilik ve Turizm A.Ş. tarafından 07.09.2007 tarihinde kaydedildi.
'
Range("C6:C18").Select
Sub Düğme139_Tıklat()
Selection.Copy
[B][COLOR=red]Son = [D65536].End(3).Row + 1[/COLOR][/B]
Range("D" [B][COLOR=red]& Son[/COLOR][/B]).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D4").Select
Application.CutCopyMode = False
Selection.Copy
Range("C" [COLOR=red][B]& Son[/B][/COLOR]).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C6").Select
Selection.Interior.ColorIndex = 36
Range("B6").Select
'
End Sub

 

[gbaldogan]

çok teşekkür ederim bir konu daha yardım isteyecektim bu koddra her seçtiğim hücrenin rengi 36 olacak ama hep ilk seçtiğim oluyor ona da bakar mısınız.