Makronun istenen sayfada çalışması

[igultekin2000]

iyi günler;
çoklu makronun tek butonla çalışması durumlarında bazen sorun yaşıyorum.

Sub Tums()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

Dim s1 As Worksheet
Dim s2 As Worksheet
Dim Firma As String
Dim i, say As Long

Set s1 = ThisWorkbook.Worksheets("CARI_HRK")
Set s2 = ThisWorkbook.Worksheets("listele")

say = s2.Cells(s2.Rows.Count, "b").End(3).Row

For i = 2 To say
 Firma = s2.Cells(i, "F").Value
If Firma <> "" Then
  
    s1.Cells(1, "b").Value = Firma
    Call aktarr
    Call cevir_ANA
    Call formul_musteri
    Call SATIR_SIL
    Call detay_satici
    Call tek_sayi_cevir
    Call ODENMEYENLER
    Call liste_biriktir

    'Call KOD_PDFLS
End If

şeklindeki kodun aktarr,cevir_ANA, SATIR_SIL makroları çalışırken CARI_HRK sayfası aktif olsun, detay_satici, tek_sayi_cevir, ODENMEYENLER, liste_biriktir makroları çalışırken AKTAR çalışma sayfası aktif olsun. şu haliyle çalışma sayfası bir sayfada takılı oluyor ve bazı makrolar çalışmadan geçiyor. TEK BUTON' la makrolara bir ilave yapmadan tek buton içinde bir ek yaparak makroların seçtiğimiz çalışma sayfasında çalışmasını sağlayabilir miyiz?

 

[Korhan Ayhan]

Merhaba,

Bahsettiğiniz makrolarda sayfa seçme kodu yoksa aşağıdaki şekilde işinizi görecektir.

    S1.Select
    Call aktarr
    Call cevir_ANA
    Call formul_musteri
    Call SATIR_SIL
    Sheets("AKTAR").Select
    Call detay_satici
    Call tek_sayi_cevir
    Call ODENMEYENLER
    Call liste_biriktir

 

[igultekin2000]

Merhaba,

Bahsettiğiniz makrolarda sayfa seçme kodu yoksa aşağıdaki şekilde işinizi görecektir.

    S1.Select
    Call aktarr
    Call cevir_ANA
    Call formul_musteri
    Call SATIR_SIL
    Sheets("AKTAR").Select
    Call detay_satici
    Call tek_sayi_cevir
    Call ODENMEYENLER
    Call liste_biriktir

Teşekkür ederim bu şekilde işlem oldu. iyi çalışmalar