Hücre değerini clipboarda almak

[inFiesta]

Merhabalar;
Ekteki örnekte de görebileceğiniz gibi bir listem var ve yukarıdaki butona bastığımda bu listenin g sütununun son satırındaki değerle bir klasör oluşturuyor. Yapmak istediğim butona tıklandığında aynı zamanda son satırdaki değeri clipboarda kopyalasın ve o satır renklensin.
vakit ayıranlara teşekkürlerimi sunuyorum

 

[Ayhan Ercan]

Merhaba Sn inFiesta

Kodunuza ilave edilmiş satırlar aşağıda renkli olarak yazılmıştır.
Denermisiniz....?

Sub Klasor_Olustur()
On Error Resume Next
Dim ds, deg, deg2
deg = [g65536].End(3).Row
[B][COLOR=blue]Range("g" & deg).Interior.ColorIndex = 6 ' Satırın Renklenmesi[/COLOR][/B]
deg2 = Range("g" & deg).Value
[B][COLOR=blue]Range("g" & deg).Copy ' son satırdaki değerin clipboarda kopyalanması[/COLOR][/B]
Set ds = CreateObject("Scripting.FileSystemObject")
ds.CreateFolder "C:\Documents and Settings\aci\Desktop\deneme\" & deg2
End Sub

 

[inFiesta]

Teşekkürler Ayhan Bey,
İstediğim tam olarak buydu.

 

[Ayhan Ercan]

Teşekkürler Ayhan Bey,
İstediğim tam olarak buydu.

Rica ederim.
İyi Çalışmalar.. k::