kod'un sayfayı açınca çalışması

[gedavet]

Sub AKTAR_BORÇ()
Dim S1 As Worksheet, S2 As Worksheet, S3 As Worksheet, S4 As Worksheet
Dim Satır As Long, X As Long

Application.ScreenUpdating = False

Set S1 = Sheets("BORÇ")
Set S2 = Sheets("ALIŞ")
Set S3 = Sheets("FATURA")
Set S4 = Sheets("GİDER")
''''''''''''''''''''''' KALAN BORÇ '''''''''''''''''''''''
S1.Select
Range("B5:T1048576").ClearContents
Satır = 5
''''''''''''''''''''''' ALIŞ '''''''''''''''''''''''
For X = 5 To S2.Range("B1048576").End(3).Row
S1.Range("B" & Satır & "" & Satır).Value = S2.Range("B" & X & "" & X).Value
S1.Range("E" & Satır & ":G" & Satır).Value = S2.Range("F" & X & ":H" & X).Value
S1.Range("H" & Satır) = S2.Range("J" & X)
S1.Range("T" & Satır) = S2.Range("K" & X)
Satır = Satır + 1
Next
''''''''''''''''''''''' FATURA '''''''''''''''''''''''
For X = 5 To S3.Range("B1048576").End(3).Row
S1.Range("B" & Satır & "" & Satır).Value = S3.Range("B" & X & "" & X).Value
S1.Range("I" & Satır & ":J" & Satır).Value = S3.Range("E" & X & ":F" & X).Value
S1.Range("T" & Satır) = S3.Range("G" & X)
Satır = Satır + 1
Next
''''''''''''''''''''''' GİDER '''''''''''''''''''''''
For X = 5 To S4.Range("B1048576").End(3).Row
S1.Range("B" & Satır & "" & Satır).Value = S4.Range("B" & X & "" & X).Value
S1.Range("K" & Satır & ":T" & Satır).Value = S4.Range("E" & X & ":N" & X).Value
Satır = Satır + 1
Next

Set S1 = Nothing
Set S2 = Nothing
Set S3 = Nothing
Set S4 = Nothing

Application.ScreenUpdating = True

MsgBox "Aktarma İşleminiz tamamlanmıştır.", vbInformation
End Sub


İYİ GÜNLER BU KODU BİR KUTUCUĞA TIKLAYINCA ÇALIŞTIRIYORUM
"KALAN ALACAK" DİYE BİR SAYFAM VAR BU SAYFAYI AÇINCA BU KODU ÇALIŞSA BU MÜMKÜNMÜDÜR
YARDIMCI OLABİLİRMİSİNİZ

 

[Korhan Ayhan]

Selamlar,

İlgili sayfanızın kod bölümüne aşağıdaki kodu uygulayıp denermisiniz.

Option Explicit
 
Private Sub Worksheet_Activate()
    AKTAR_BORÇ
End Sub

 

[gedavet]

İLGİNİZ İÇİN TEŞEKKÜR EDERİM İŞLEM OLDU TAMAM DIR AKTARMA YAPIYOR
ancak ben ince bir ayarı unutmuşum yapmak istediğim işlem şu
"borç" diye bir sayfam var buraya verileri aktarıyorum "KALAN ALACAK" diye başka bir sayfa var burayada "borç" sayfasından özet tablo aldım "KALAN ALACAK" sayfasını açınca aktarma işlemini yapsa diye düşünmüştüm şimdiki kod yapıyor ancak "borç" sayfasına gidiyor özet tablonun olduğu "KALAN ALACAK" sayfasına gitse yani ben "KALAN ALACAK" sayfasını açınca baka bir yere gitmese aktarma işlemini yapsa

 

[Korhan Ayhan]

Selamlar,

Sayfa seçimini yapan aşağıdaki kodu kaldırmanız yeterli olur sanırım.

S1.Select

 

[gedavet]

Ilginiz için teşekkür ederim işlem oldu istediğimi yapıyor
ANCAK ÖZET TABLO ALINCA SİLDİĞİM KODUN ALTINDAKİ KODDA HATA VERİYOR

 

[Korhan Ayhan]

Selamlar,

Bu durumda kod içindeki aşağıdaki ifadeyi silin.

S1.Select

Ve altındaki satırı aşağıdaki şekilde değiştirin.

[COLOR=red]S1.[/COLOR]Range("B5:T1048576").ClearContents