Soru Veriyi Çekerken Sütunu Kaydırma

[dengeceteris]

Sevgili arkadaşlar herkese günaydın. Aşağıda Korhan hocamın yaptığı bir verialma kodu vardı. Şimdi ben bunu uzun süredir kullanıyorum. Ama veri alma kaynağında program da artık 8 sütun değil sistem 7 sütun veriyor. Yani D sütunu artık yok. Veriyi yapıştırdığım yerde ise aşağıdaki formatta ayarladığım için 15-20 tane sayfada etkilenen yer var ve bir sürü yerde değişiklik yapmam gerekiyor. Onun yerine veriyi çekerken A, B ve C Sütunlarını aynen aldıktan sonra kalan 4 sütunu E sütunundan itibaren çekmek mümkün mü ?

HESAP KODU (A)

HESAP ADI (B)

BOŞ (C)

BOŞ (D)

BORÇ (E)

ALACAK (F)

BORÇ BAKİYESİ (G)

ALACAK BAKİYESİ (H)

Sub VERİAL_1()

If dosya <> "" Then
On Error GoTo hata
Application.ScreenUpdating = False
Set kaynak = Workbooks.Open(dosya, True, True)
kaynak.Worksheets("Sheet1").Range("A7:H10000").Copy ThisWorkbook.Sheets("MİZAN1").Range("A3")
kaynak.Close False
Set kaynak = Nothing
hata:
Application.ScreenUpdating = True
Else
End If
End Sub

 

[Korhan Ayhan]

Deneyiniz.

Veriyi aktaran satırı ikiye bölerek işlemi yapabilirsiniz.

kaynak.Worksheets("Sheet1").Range("A7:C10000").Copy ThisWorkbook.Sheets("MİZAN1").Range("A3")
kaynak.Worksheets("Sheet1").Range("E7:H10000").Copy ThisWorkbook.Sheets("MİZAN1").Range("D3")

 

[dengeceteris]

Üstadım her zaman ki harikasın..