Tablodaki verileri en son boş sutuna aktarma

[chrone]

Tablodaki verileri en son boş sutuna aktarma "YARDIM"

Selam arkadaşlar;
makro vba işinde daha çok yeniyim şimdilik sadece makro kaydederek kodlar üzerinde değişiklikler yapabiliyorum. örnek dosyadada belirttiğim işlemleri yapamadım iki gündür kodlar içerisinde boğuldum. Forumdan bulduğum kodları ve kaydettiğim makroları birleştirerek yapmaya çalıştım fakat başarılı olamadım.

Yardımcı olursanız sevinirim.

G2 hücresi ile G39 hücresi arasındaki değerleri seçip tablonun en sağında bulunan ilk sutunun 2. hücresi ile 39. hücresi aralığına değerleri olarak yapıştıracak bir makro yapmam gerekiyor.
G2:G39 veri alınacak bölüm sürekli sabit, verilerin kopyalanacağı sutun ise her seferinde 1 artarak devam edecek.

 

[uzmanamele]

merhaba

bu kod işinizi görür mü?

Sub Düğme8_Tıklat()
ssut = Cells(2, 256).End(xlToLeft).Column
Range("g2:g40").Copy Cells(2, ssut + 1)
Application.CutCopyMode = False
If ssut = 19 Then Range("H2:H40").ClearContents
End Sub

 

[chrone]

merhaba

bu kod işinizi görür mü?

Sub Düğme8_Tıklat()
ssut = Cells(2, 256).End(xlToLeft).Column
Range("g2:g40").Copy Cells(2, ssut + 1)
Application.CutCopyMode = False
If ssut = 19 Then Range("H2:H40").ClearContents
End Sub

selamlar hocam öncelikle ilginize çok teşekkür ederim. bu kod kısmen işim görüyor.
yapmak istediğim şeyler olmuş fakat kopyalayıp yapıştırdığı zaman değerleri olarak yapıştırması gerkiyor.
çünkü kopyaladığımız g2:g40 hücrelerindeki veri formül içeriyor doğrudan kopyalamada formüllerle beraber alıyor bu sebeple sorun çıkarıyor.
kopyalama olayını değerleri olarak yapıştıra çevirebilirsek sorun çözülmüş olacak.
sizin yazmış olduğunuz kod üzerinde değerleri yapıştır olarak değiştirmeye çalışıyorum fakat vba bilgim zayıf olduğu için henüz sonuca ulaşamadım.
eğer mümkünse değerleri olarak yapıştımak için kod verebilirmisiniz?

 

[uzmanamele]

merhaba

bunu deneyiniz.

Sub Düğme8_Tıklat()
ssut = Cells(2, 256).End(xlToLeft).Column
Range("g2:g40").Copy
Cells(2, ssut + 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Application.CutCopyMode = False
If ssut = 19 Then Range("H2:H40").ClearContents
End Sub

 

[chrone]

teşekkür ederim bu kod mükemmel oldu.
Ellerinize sağlık