bir dosyaki makroların başka dosyada çalışmaması

[MENNES]

arkadaslar merhaba,

veri ve kesin mizan adı altındaki dosya kendi başına makroları ile çalışmakta ancak bu dosyayı iki sayfası da birlikte olmak koşuluyla başka bir excel dosyası içine koyduğumda çalıştırmamaktayım,
sayfa numaralarını kodlardan uyarlamaya çalıştım ancak başaramadım,
yardımcı olabilirmisiniz.

 

[Mehmet Şahin]

Merhaba,
Dosyanızı yedekleyiniz. Modül12'deki kodları silip aşağıdakileri yapıştırıp deneyiniz. İyi çalışmalar.

Sub Mizan()
Dim sh As Worksheet
Dim s1 As Worksheet
Set sh = Sheets("KESINMIZANK_1(BDP için)")
Set s1 = Sheets("Veri")
Application.ScreenUpdating = False
sh.[c2:f500].ClearContents

 With s1
 For i = 2 To [A65536].End(3).Row
 Set a = .Columns("a").Find(Cells(i, 1))
 If Not a Is Nothing Then
 sh.Cells(i, 3) = IIf(.Cells(a.Row, "c") = 0, "", .Cells(a.Row, 3))
 sh.Cells(i, 4) = IIf(.Cells(a.Row, "d") = 0, "", .Cells(a.Row, 4))
 sh.Cells(i, 5) = IIf(.Cells(a.Row, "e") = 0, "", .Cells(a.Row, 5))
 sh.Cells(i, 6) = IIf(.Cells(a.Row, "f") = 0, "", .Cells(a.Row, 6))
 End If
 Next
 End With
 Set sh = Nothing: Set s1 = Nothing
 Application.ScreenUpdating = True
End Sub
Sub MizanAktar()
Dim sh As Worksheet
Set sh = Sheets("KESINMIZANK_1(BDP için)")

yol = "D:\ARŞİV\Kesin Mizan.txt"
  Open yol For Output As #1
    satir = sh.[A65536].End(3).Row
    sutun = 6
        For i = 2 To satir
            For j = 1 To sutun
              a = a & Replace(sh.Cells(i, j), ".", ",") & vbTab
            Next j
        Print #1, Left(a, Len(a) - 1)
        a = ""
        Next i
  Close #1
  Set sh = Nothing
End Sub

 

[MENNES]

cevabınız için teşekkür ederim ancak çalışmadı,
modul içine yazmamı ıstedıgınız kodları kopyaladım ve calıştırdıgımda hiçibir işlem olmadı,
baska bir öneriniz var mı?

 

[MENNES]

sizin hazırladıgınız kodlar baska sayfaya verileri aktarıyormuş , sorun çözüldü teşekkürler.