Maas Dosyasi Makro Hatasi

[kahanet]

Arkadaslar Merhaba Santiye icerisinde calisan personellerimiz icin maas dosyasi hazirliyorum fakat Makro ile aramin bozuk olmasindan dolayi forumu arastirarak http://www.excel.web.tr/f48/makro-ile-firma-isimlerine-gore-80-yeni-sayfa-t51141.html adresindeki kodu calisma sayfama uyarlamak istedim fakat basarili olamadim.

Benim burada yapmak istedigim Ornek sayfasini Salary Sheet Turkish F15 hucresinden F... hucresine kadar olan numaralara gore sayfa acip sayfanin adini referans aldigi numara ile ayni yapmasi ve olusturdugu sayfadaki D6 hucresine ayni numarayi yazmasi yani kod calistigi zaman F15 de 101 sayisi icin Ornek sayfasini kopyalacak yapistiracak ismini 101 yapip sonra 101 sayfasinin D6 hucresine 101 yazacak ve F16'ya gececek taki bos hucre gorene kadar

 

[kahanet]

Arkadaslar buraya gondermeden once denedigimde farkli hata ile karsilasiyordum fakat simdi karsilastigim hata 'Run-Time "1004" : Copy Method Of WorkSheet Class Failed' ve ilerlemiyor lutfen bilen arkadaslar yardim etsin

Sub Sayfa_Olustur()
Dim Durum As Boolean
Dim i, j As Double
Set s1 = Sheets("Salary Sheet Turkish")
For i = 15 To s1.[F65536].End(3).Row
    Durum = False
    
    '--------- Sayfa isminin olup olmadiginin kontrolu ------
    For j = 3 To Sheets.Count
        If Sheets(j).Name = s1.Cells(i, "F") Then
            Durum = True
        Exit For
        End If
    Next j
    '--------- Sayfa kontrolu Sonu --------------------------
    
    If Durum = False Then
        [COLOR="Red"]Sheets("Ornek").Copy After:=Sheets(Sheets.Count)[/COLOR]
        ActiveSheet.[D6] = s1.Cells(i, "F")
        ActiveSheet.Name = s1.Cells(i, "F")
    End If
Next i
s1.Select
MsgBox "Sayfalar Açilmistir.....", vbOKCancel, "www.excel.web.tr"
End Sub

Kirmizi kisim hata gosterdigi yerdir ve 174. sayfayi olustururken hata ile karsilasmistir neden?

 

[kahanet]

Yardimda bulunacak yokmu arkadaslar birde dikkatimi cekti zannedersem dosyanin boyutu yukseldigi icin makro hata veriyor bu isle ilgili arkadaslar, lutfen yorumlarini bekliyorum

 

[aydın3838]

ustalar daha iyi bilir ama en iyi çözüm
banada formdan vermişlerdi

kodun üzerine yapıştır

On Error Resume Next

 

[Recep İpek]

Yardimda bulunacak yokmu arkadaslar birde dikkatimi cekti zannedersem dosyanin boyutu yukseldigi icin makro hata veriyor bu isle ilgili arkadaslar, lutfen yorumlarini bekliyorum

Sizinde belirttiğiniz gibi dosyanının boyutu arttığı için hata verebilir.

174'den sonra siz manuel açmayı deneyiniz?Hata verecek mi?

 

[kahanet]

Makroyu evdeki bilgisayarimda test ettim excel 2007 tr kullaniyorum. Islem basarili oldu. Dosya boyutundan dolayi hata veriyormus.Peki ben bu dosyanin agirlasmasini nasil engelleyebilirim. Ilk Aklima gelen formulleri makro ile yazmak oluyor ama bu konuda yetersizim. Yardimci olmak isteyen arkadas olursa cok sevinirim.

 

[kahanet]

=+EĞER(((((P15-O15)*24))-1.5)>0,EĞER(YADA(O15="",P15=""),0,+EĞER(YADA(12>+SAAT(O15),+SAAT(P15)>12),EĞER(((-O15+P15)*24)>(+(EĞER($H15="Turkish",9.5,10.5))),(+(EĞER($H15="Turkish",8,9))),((-O15+P15)*24)-1.5),EĞER(((-O15+P15)*24)>10.5,"10.5",(-O15+P15)*24))),0)

ve

=EĞER(YADA(((+(EĞER($H15="Turkish",9.5,10.5)))>(-O15+P15)*24),(0.5>(((-O15+P15)*24)-(+(EĞER($H15="Turkish",9.5,10.5)))))),0,(((-O15+P15)*24)-(+(EĞER($H15="Turkish",9.5,10.5)))))

Arkadaslar ben bu formulleri Makro ya donusturmek ve sutunun sonuna kadar gondermek istesem nasil yapabilrim. Dosya cok sistigi icin bu iki kodu kullanarak ilk mesajimdaki dosyada bir cok formulume uyarlicagim

 

[kahanet]

Yukaridaki kodlarda yardim olacak bir arkadas yokmu