2 sütün verisini tek satıra kayıt yapma

[abdullahss]

kodda hata var uzman arkadaşlardan yarım istiyorum.

Sub aktarrrr()

 Sheets("giriş").Select
   Range("C2:C34").Select
    Range("B26:B31").Select
       Sheets("Sayfa3").Select
         Range("B2").Select
           Range("AI2").Select
           Application.CutCopyMode = False
        Selection.Copy
  End Sub

 

[Necdet]

Merhaba,

Siz kodları bir kenara bırakın, ne yapmak istediğinizi açıklayın.

Kodlarınızda bol miktarda select var, hiç bir işlem yaptırmadan seçtiriyorsunuz, bunun neresine bakıpta ne diyelim?

 

[abdullahss]

Merhaba Necdet bey
Yapmak istediğim giriş sayfasında c2:c34 aralığı ve b26:b31 aralığını kesip sayfa3 te 1 satıra kayıt yapmak ve her yeni kaydı 1 altına eklemek.