- Excel Versiyonu
- Excel 2016
- Excel Sürümü
- 64 Bit
- Excel Dili
- Türkçe
Kod:
Sub AKTAR()
Sheets("BORDRO").Range("D3:D23").Copy Destination:=Sheets("BANKA LİSTESİ").Range("B3:B31")
Sheets("BORDRO").Range("E3:E23").Copy Destination:=Sheets("BANKA LİSTESİ").Range("C3:C31")
Sheets("BORDRO").Range("F3:F23").Copy Destination:=Sheets("BANKA LİSTESİ").Range("D3:D31")
Sheets("BORDRO").Range("B3:B23").Copy Destination:=Sheets("BANKA LİSTESİ").Range("E3:E31")
Sheets("BORDRO").Range("M3:M23").Copy Destination:=Sheets("BANKA LİSTESİ").Range("F3:F31")
Sheets("BORDRO").Range("C3:C23").Copy Destination:=Sheets("BANKA LİSTESİ").Range("G3:G31")
End SubYukarıda ki kod ile acemice de olsa aktarım yapıyorum. Yalnız Aktarmadan önce banka listesindeki B3 ile G31 arasını temizlesin öyle aktarsın istiyorum.
Hangi kodu nereye eklemem lazım yardımcı olabilir misiniz?