• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

kaynak isimli klasördeki dosyaları birleştirme yapıyordum sayfa i̇simleri degisince kod hata verdi

  1. E

    Çözüldü Kaynak isimli Klasördeki Dosyaları Birleştirme yapıyordum Sayfa İsimleri Degisince Kod Hata verdi

    Sub tevziaktar() Dim dosya As String, sonsat1 As Long, sonsat2 As Long Dim sh As Worksheet Range("a2:T" & Rows.Count).UnMerge Range("a2:T" & Rows.Count).Clear Application.ScreenUpdating = False sonsat1 = Cells(Rows.Count, "a").End(xlUp).Row + 1 dosya = Dir(ThisWorkbook.Path & "\Kaynak\*.xls") Do...
Geri
Üst