Follow along with the video below to see how to install our site as a web app on your home screen.
Not: This feature may not be available in some browsers.
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.
Güncel olmayan bir tarayıcı kullanıyorsunuz. Bunu veya diğer web sitelerini doğru şekilde göstermeyebilir. Yükseltmeli veya bir alternatif kullanmalısınız. tarayıcı.
kaynak isimli klasördeki dosyaları birleştirme yapıyordum sayfa i̇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...