SİL (makro)

[ziya]

Merhaba,
Aşağıdaki işlevi yapacak makroya ihtiyacım var.

- J sütunundan IV sütununa kadar olan sütunları sil
Columns("J:IV").Select
Selection.Delete Shift:=xlToLeft
- En son dolu satırdan sonraki satırdan son satıra kadar (65536 satır) sil.

Silmek istediğimi alan olarak tanımladığımda sonuç alamadığım için atır ve sütun silmek istiyorum.

 

[leumruk]

merhaba,
son_sat tanımlamasını kendinize uyarlayın.

Columns("J:IV").Delete
son_sat = Cells(Rows.Count, 1) + 1
Rows(son_sat & ":" & Rows.Count).Delete

 

[ziya]

Teşekkür ederim.

 

[ziya]

Workbooks.Open Filename:="D:\ECZANELER\FIS_AKTARIM_SABLON.CSV"
Worksheets("FIS_AKTARIM_SABLON").Range("A1").Select
Paste Worksheets("FIS_AKTARIM_SABLON").Range("A1")
Application.CutCopyMode = False
 
Columns("J:IV").Delete
son_sat = Cells(Rows.Count, 1) + 1
Rows(son_sat & ":" & Rows.Count, 65536).Delete

Yukarıdaki kodu "Fatura Programı" kitabındaki makrodan çalıştırıyorum.
Maalesef, D:\ECZANELER\FIS_AKTARIM_SABLON.CSV kitabı ilgili satır ve sütunlarını değil de, "Fatura Programı" kitabının satır ve sütunlarını sildi.

Nasıl düzeltebilirim.

 

[leumruk]

Merhaba,

Workbooks.Open Filename:="D:\ECZANELER\FIS_AKTARIM_SABLON.CSV"
Set ktp = Workbooks("FIS_AKTARIM_SABLON.CSV")
Set syf = ktp.Sheets("FIS_AKTARIM_SABLON")
ktp.Activate
syf.Select
Paste syf.Range("A1")
Application.CutCopyMode = False
syf.Columns("J:IV").Delete
syf.Rows(son_sat & ":" & Rows.Count).Delete

 

[ziya]

leumruk hocam,
Teşekkür ederim.