Sıralı Aktar Makrosu

[nihatra]

Kolay gelsin;
Bir buton ile aşağıdaki kod ile veri aktarıyorum.

Sub sıralıaktar()
hedef = 11
For i = 1 To Sheets("ÜCRET ÇİZELGESİ").Range("b250").End(3).Row
If Sheets("ÜCRET ÇİZELGESİ").Cells(i, 2).Value <> "" Then
Sheets("DEVAM-DEVAMSIZLIK").Cells(hedef, "C").Value = Sheets("ÜCRET ÇİZELGESİ").Cells(i, 2).Value
Sheets("DEVAM-DEVAMSIZLIK").Cells(hedef, "B").Value = Sheets("ÜCRET ÇİZELGESİ").Cells(i, 3).Value

Sheets("BORDRO").Cells(hedef, "B").Value = Sheets("ÜCRET ÇİZELGESİ").Cells(i, 2).Value
Sheets("BORDRO").Cells(hedef, "C").Value = Sheets("ÜCRET ÇİZELGESİ").Cells(i, 5).Value
Sheets("BORDRO").Cells(hedef, "D").Value = Sheets("ÜCRET ÇİZELGESİ").Cells(i, 6).Value

Sheets("BANKA LİSTESİ").Cells(hedef, "B").Value = Sheets("ÜCRET ÇİZELGESİ").Cells(i, 2).Value
Sheets("BANKA LİSTESİ").Cells(hedef, "D").Value = Sheets("BORDRO").Cells(i, 20).Value
Sheets("BANKA LİSTESİ").Cells(hedef, "F").Value = Sheets("BORDRO").Cells(i, 20).Value
Sheets("BANKA LİSTESİ").Cells(hedef, "C").Value = Sheets("ÜCRET ÇİZELGESİ").Cells(i, 10).Value

Sheets("A.G.İ. BORDRO").Cells(hedef, "C").Value = Sheets("ÜCRET ÇİZELGESİ").Cells(i, 2).Value
Sheets("A.G.İ. BİLGİ").Cells(hedef, "B").Value = Sheets("ÜCRET ÇİZELGESİ").Cells(i, 2).Value

Sheets("TXT").Cells(hedef, "A").Value = Sheets("ÜCRET ÇİZELGESİ").Cells(i, 2).Value
Sheets("TXT").Cells(hedef, "B").Value = Sheets("ÜCRET ÇİZELGESİ").Cells(i, 8).Value
Sheets("TXT").Cells(hedef, "C").Value = Sheets("ÜCRET ÇİZELGESİ").Cells(i, 9).Value
Sheets("TXT").Cells(hedef, "D").Value = Sheets("ÜCRET ÇİZELGESİ").Cells(i, 10).Value
Sheets("TXT").Cells(hedef, "E").Value = Sheets("BORDRO").Cells(i, 20).Value

Sheets("ÜCRET ÇİZELGESİ").Cells(hedef, "E").Value = Sheets("DEVAM-DEVAMSIZLIK").Cells(i, 35).Value

hedef = hedef + 1
End If
Next i
End Sub
sorum şu ;
1- Veri aktarırken çok uzun süre geçiyor.
2- Verilerde yaptığım değişiklikleri 1. sefer butona bastığımda değişiklikleri aktarmıyor.2. sefer butona basarsam aktarıyor. Acaba nerede hata yapıyorum.

 

[Jeeday]

Dosyayı yüklerseniz daha kolay cevap alırsınız