Nerede Hata Yapıyorum

[ayagiz44]

Sub Matrah()
Say = Sheets("BORDRO").Range("U7").End(xlDown).Row
If IsEmpty(Sheets("V MATRAHI").Range("c2")) Then

Sheets("ANA VERİ").Range("J1").Copy
Sheets("V MATRAHI").Range("b1").PasteSpecial Paste:=xlValues
Sheets("BORDRO").Range("U7:U14").Copy
Sheets("V MATRAHI").Range("b2").PasteSpecial Paste:=xlValues
Application.CutCopyMode = False

End If

End Sub


Bu formülde aktar yaptığımda B sütuna yapıştırıyor
ikinci aktar yaptığımda C sütuna yapıştırmasını istiyor ve E, F, G diye devam etmesini istiyorum
yardımlarınız için şimdiden teşekkür ederim. Selamlar.

 

[PLİNT]

Merhaba
Aşağıdaki gibi deneyelim; istediğiniz öylemi?

[SIZE="2"]Sub Matrah()
'Say = Sheets("BORDRO").Range("U7").End(xlDown).Row
'If IsEmpty(Sheets("V MATRAHI").Range("c2")) Then

Sheets("ANA VERİ").Range("J1").Copy
x = Sheets("V MATRAHI").Cells(1, Columns.Count).End(xlToLeft).Column + 1
Sheets("V MATRAHI").Cells(1, x).PasteSpecial Paste:=xlValues
Sheets("BORDRO").Range("U7:U14").Copy
Sheets("V MATRAHI").Cells(2, x).PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
'End If
End Sub [/SIZE]

 

[ayagiz44]

Elinize sağlık

oluyor ancak X sütunundan başlıyor kayıt yapmaya B sütunundan başlatabilirmiyiz

 

[PLİNT]

oluyor ancak X sütunundan başlıyor kayıt yapmaya B sütunundan başlatabilirmiyiz

"X" eşitliğnde kodlar en son sütundan; "A" sütununa doğru bakar
Demekki "W1" hücresinde veri veya formül var
Yukarıdaki kodlarda "[B1:W1]" aralığında veri olmamalıdır
ancak kopyalama işlemi "[B1:V1]" aralığında olacaksa
Kodlarda "x" eşitliğini şöyle değiştirin

[SIZE="2"]x = Sheets("V MATRAHI").Cells(1, [COLOR="Red"]23[/COLOR]).End(xlToLeft).Column + 1 [/SIZE]

 

[Orion1]

Konu başlığınız forum kurallarına aykırı.Bu tür konu başlıkları medaratörler tarafından çöp kutusuna taşınıyor.
Aşağıdaki linki okuyunuz.

FORUM KURALLARI
.