DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub TabloEkle()
Sat = [b65536].End(3).Row + 3
[b2:g16].Copy Cells(Sat, "b")
Range(Cells(Sat + 2, "b"), Cells(Sat + 13, "f")).ClearContents
w = Mid(Cells(Sat - 17, "g"), 1, 1)
Cells(Sat, "g") = w + 1 & "." & "TABLO"
End Sub
Mustafa Bey, sizin programınızı bilmiyorum ki. Ne söylesem boş. Önce programı görmek lazım.mustafa bey çok teşekkür ederim benim istediğim bu ancak bunu ben kendi programıma nasıl uygularım bir de ay şekilde sıralama makrosu lazım yani şu aralıkları gibi nasıl uygulayacağım