[Yardım]  Aynı klasör içerisindeki excel dosyalarını ve çalışma sayfal

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Cevap: Aynı klasör içerisindeki excel dosyalarını ve çalışma

İleti#21)  vuranoglu » 06 Nis 2021 19:05

İyi akşamlar
Arkadaşlar vermiş olduğunuz bilgiler doğrultusunda da sonuç alınmadı?
Kullanıcı avatarı
vuranoglu
Siteye Alışmış
 
Adı Soyadı:Mehmet VURANOĞLU
Kayıt: 08 Kas 2009 20:41
Konum: Ev
Meslek: Esnaf
Yaş: 65
İleti: 130
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İZMİR

Cevap: Aynı klasör içerisindeki excel dosyalarını ve çalışma

İleti#22)  halily » 06 Nis 2021 19:34

.Sheets("1").Range("a:J") = "" gibi kodları aşağıdaki gibi düzenleyip dener misiniz
Kod: Tümünü seç
.Sheets("1").Range("a:J").ClearContents
Kullanıcı avatarı
halily
Siteye Alışmış
 
Kayıt: 23 May 2019 11:16
Meslek: yok
Yaş: 41
İleti: 402
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: adana

Cevap: Cevap: Aynı klasör içerisindeki excel dosyalarını ve

İleti#23)  feraz » 06 Nis 2021 20:30

vuranoglu yazdı:İyi akşamlar
Arkadaşlar vermiş olduğunuz bilgiler doğrultusunda da sonuç alınmadı?

İyi akşamlar.Tam olarak ne istiyorsunuz?
Temizleme kodları zten sizinki.Halil hocamızın kodu ise dediğniz excelleri açıp 1 den 7 ye kadar olan sayfaları temizliyor.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 41
İleti: 6578
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Aynı klasör içerisindeki excel dosyalarını ve çalışma

İleti#24)  vuranoglu » 06 Nis 2021 20:35

İyi akşamlar.
Çalışmalar ekteki gibi sonuç vermektedir.
Pc bağlanmak istiyorsanız.
Ammyy proğramı var kullanan varsa beraber görelim.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
vuranoglu
Siteye Alışmış
 
Adı Soyadı:Mehmet VURANOĞLU
Kayıt: 08 Kas 2009 20:41
Konum: Ev
Meslek: Esnaf
Yaş: 65
İleti: 130
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İZMİR

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Aynı klasör içerisindeki excel dosyalarını ve çalışma

İleti#25)  vuranoglu » 06 Nis 2021 20:55

Arkadaşlar
Emeklerinize sağlık silme alanlarında değişiklikler yaptım şu anda dene 2 sayfada sonuç alındı.
Tekrar emeği geçen değerli zamanlarını paylaşan arkadaşlara teşekkürler.
İyi akşamlar
Kullanıcı avatarı
vuranoglu
Siteye Alışmış
 
Adı Soyadı:Mehmet VURANOĞLU
Kayıt: 08 Kas 2009 20:41
Konum: Ev
Meslek: Esnaf
Yaş: 65
İleti: 130
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İZMİR

Cevap: Aynı klasör içerisindeki excel dosyalarını ve çalışma

İleti#26)  halily » 06 Nis 2021 20:57

aşağıdaki gifte de görebileceğiniz gibi kod temizliyor
birkaç defa denedim
Kod: Tümünü seç
Sub ExcelBos()
Dim DosyaAdi As String
Dim Klasor As String
Klasor = ThisWorkbook.Path & "\OCAK 2021\"
DosyaAdi = Dir(Klasor & "*.xls?")
Application.ScreenUpdating = False
Do While DosyaAdi <> ""
Debug.Print DosyaAdi, Klasor & DosyaAdi
Dim wb As Workbook
    Set wb = Workbooks.Open(Klasor & DosyaAdi)  'Workbooks.Open(Klasor & DosyaAdi)
With wb
.Sheets("1").Range("a:J").ClearContents
.Sheets("2").Range("C3:O156").ClearContents
.Sheets("3").Range("C1:AL5000").ClearContents
.Sheets("4").Range("A:AK").ClearContents
.Sheets("5").Range("A1:AK5000").ClearContents
.Sheets("6").Range("A1:AK5000").ClearContents
.Sheets("7").Range("A1:AD5000").ClearContents
.Close savechanges:=True
End With

    DosyaAdi = Dir()
Loop
Application.ScreenUpdating = True
MsgBox ""
End Sub
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
halily
Siteye Alışmış
 
Kayıt: 23 May 2019 11:16
Meslek: yok
Yaş: 41
İleti: 402
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: adana

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Aynı klasör içerisindeki excel dosyalarını ve çalışma

İleti#27)  vuranoglu » 06 Nis 2021 21:15

Tekrar merhaba
Dosya adı degiştiğinde makroya girmeden nasıl değiştirebiliriz.
OCAK 2021/ ŞUBAT 2021/MART 2021/NİSAN2021.......ARALIK 2021 GİBİ
Kullanıcı avatarı
vuranoglu
Siteye Alışmış
 
Adı Soyadı:Mehmet VURANOĞLU
Kayıt: 08 Kas 2009 20:41
Konum: Ev
Meslek: Esnaf
Yaş: 65
İleti: 130
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İZMİR

Cevap: Aynı klasör içerisindeki excel dosyalarını ve çalışma

İleti#28)  halily » 06 Nis 2021 21:28

Klasor = ThisWorkbook.Path & "\OCAK 2021\" klasör adresi buradan alınıyor
Burada yapacağınız değişiklikle istediğiniz klasörü seçebilirsiniz
Kullanıcı avatarı
halily
Siteye Alışmış
 
Kayıt: 23 May 2019 11:16
Meslek: yok
Yaş: 41
İleti: 402
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: adana

Cevap: Aynı klasör içerisindeki excel dosyalarını ve çalışma

İleti#29)  vuranoglu » 06 Nis 2021 21:54

Merhaba
Çalışma sayfaları içerisine satır sütunlar var. Buralarda hata veriyor.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
vuranoglu
Siteye Alışmış
 
Adı Soyadı:Mehmet VURANOĞLU
Kayıt: 08 Kas 2009 20:41
Konum: Ev
Meslek: Esnaf
Yaş: 65
İleti: 130
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İZMİR

Cevap: Cevap: Aynı klasör içerisindeki excel dosyalarını ve

İleti#30)  feraz » 06 Nis 2021 23:27

vuranoglu yazdı:Tekrar merhaba
Dosya adı degiştiğinde makroya girmeden nasıl değiştirebiliriz.
OCAK 2021/ ŞUBAT 2021/MART 2021/NİSAN2021.......ARALIK 2021 GİBİ


Alttaki kod tüm klasörlerlerdeki excelleri siler.Klasöre şubat,mart gibi ekleyip deneyiniz.

Kod: Tümünü seç
Sub Bosalt()
    Call excelSil(ThisWorkbook.Path)
    MsgBox "Bitti..", vbInformation, "Bitti"
End Sub

Sub excelSil(StartFolderpath As String)

    Dim fil As Object
    Dim klasor As Object
    Dim Altklasor As Object
    Dim wb As Workbook, kitapAd As String
   
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set klasor = fso.GetFolder(StartFolderpath)
   
    Application.ScreenUpdating = False
    For Each fil In klasor.Files
        If Left(LCase(fso.GetExtensionName(fil.Path)), 2) = "xl" And fil.Path <> ThisWorkbook.FullName And Left(fil.Name, 2) <> "~$" Then
            Set wb = Workbooks.Open(fil.Path)
            With wb
                kitapAd = wb.Name
                If Sayfaad("1", kitapAd) = True Then .Sheets("1").Range("C3:O156") = ""
                If Sayfaad("2", kitapAd) = True Then .Sheets("2").Range("C3:O156") = ""
                If Sayfaad("3", kitapAd) = True Then .Sheets("3").Range("C1:AL5000") = ""
                If Sayfaad("4", kitapAd) = True Then .Sheets("4").Range("A:AK") = ""
                If Sayfaad("5", kitapAd) = True Then .Sheets("5").Range("A1:AK5000") = ""
                If Sayfaad("6", kitapAd) = True Then .Sheets("6").Range("A1:AK5000") = ""
                If Sayfaad("7", kitapAd) = True Then .Sheets("7").Range("A1:AD5000") = ""
                wb.Close True
                Set wb = Nothing
            End With
        End If
    Next
        For Each Altklasor In klasor.SubFolders
            Call excelSil(Altklasor.Path)
        Next
    Application.ScreenUpdating = True
    Set klasor = Nothing: Set Altklasor = Nothing: Set fil = Nothing:  Set fso = Nothing
End Sub

Function Sayfaad(syfad As String, wb1 As String) As Boolean
    Dim ws As Worksheet, wb As Workbook
    Sayfaad = False
    On Error Resume Next
    Set wb = Workbooks(wb1)
    Set ws = wb.Worksheets(syfad)
    If Not ws Is Nothing Then Sayfaad = True
    Set wb = Nothing: Set ws = Nothing
End Function
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 41
İleti: 6578
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Aynı klasör içerisindeki excel dosyalarını ve çalışma

İleti#31)  vuranoglu » 07 Nis 2021 19:37

İyi akşamlar
Çalışma sayfalarında bazı satır ve sütunlar birleştirilmiş halde kod çalıştırınca hata veriyor.
Bir üstteki cevapta ekran görüntüsü var.
Kullanıcı avatarı
vuranoglu
Siteye Alışmış
 
Adı Soyadı:Mehmet VURANOĞLU
Kayıt: 08 Kas 2009 20:41
Konum: Ev
Meslek: Esnaf
Yaş: 65
İleti: 130
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İZMİR

Cevap: Aynı klasör içerisindeki excel dosyalarını ve çalışma

İleti#32)  halily » 07 Nis 2021 20:07

Peki hücreleri çözmenin bir sakıncası var mı?
Silmeden önce hücreler çözülebilir
Ama denemelerimde farklı satır ve sütunlardaki hücreleri birleştirip kodu denedim sorun çıkarmadı
Sorun çıkaran dosyayı ekleyin
Hangi sayfada sorun çıkarıyor hangi hücreler bitişik onu belirtin çözmeye çalışalım
Kullanıcı avatarı
halily
Siteye Alışmış
 
Kayıt: 23 May 2019 11:16
Meslek: yok
Yaş: 41
İleti: 402
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: adana

Cevap: Cevap: Aynı klasör içerisindeki excel dosyalarını ve

İleti#33)  feraz » 07 Nis 2021 21:04

vuranoglu yazdı:İyi akşamlar
Çalışma sayfalarında bazı satır ve sütunlar birleştirilmiş halde kod çalıştırınca hata veriyor.
Bir üstteki cevapta ekran görüntüsü var.

İyi akşamlar.Silme kodları sizin zaten.Hatalı şekilde eklerseniz yardımcı olunabilir.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 41
İleti: 6578
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Aynı klasör içerisindeki excel dosyalarını ve çalışma

İleti#34)  vuranoglu » 07 Nis 2021 21:45

Merhaba
1 ve 2 nolu sayfalarda birleştirilmiş satırlar var bunlar veri aldığımız dosyadan geliyor. Sayfa formatları ektedki gibi.
Temizleme esnasında hücreler çözülebilirse o da olabilir.
Emeğiniz için teşekkür ederim
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
vuranoglu
Siteye Alışmış
 
Adı Soyadı:Mehmet VURANOĞLU
Kayıt: 08 Kas 2009 20:41
Konum: Ev
Meslek: Esnaf
Yaş: 65
İleti: 130
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İZMİR

Cevap: Aynı klasör içerisindeki excel dosyalarını ve çalışma

İleti#35)  feraz » 07 Nis 2021 22:16

Meraktan soruyorum neden dosyanızda silme kodu olan dosyası olan dosya yok?
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 41
İleti: 6578
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Aynı klasör içerisindeki excel dosyalarını ve çalışma

İleti#36)  vuranoglu » 07 Nis 2021 22:29

Kusura bakma feraz bey aynı anda birçok şeyle uğraşınca silme kodunu eklememişim tekrar göndereyim.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
vuranoglu
Siteye Alışmış
 
Adı Soyadı:Mehmet VURANOĞLU
Kayıt: 08 Kas 2009 20:41
Konum: Ev
Meslek: Esnaf
Yaş: 65
İleti: 130
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İZMİR

Cevap: Aynı klasör içerisindeki excel dosyalarını ve çalışma

İleti#37)  feraz » 07 Nis 2021 22:30

Gif hazırladım birleştirilmiş hücrelerde siliniyor verdiğimiz kodlarla.
Kolay gelsim abey,benden bu kadar.

Resim
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 41
İleti: 6578
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Aynı klasör içerisindeki excel dosyalarını ve çalışma

İleti#38)  halily » 07 Nis 2021 22:53

Kod: Tümünü seç
.Sheets("1").Range("a:J").UnMerge
tüm sayfalar için bunun gibi çözme kodu ekleyebilirsiniz
Kullanıcı avatarı
halily
Siteye Alışmış
 
Kayıt: 23 May 2019 11:16
Meslek: yok
Yaş: 41
İleti: 402
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: adana

Cevap: Aynı klasör içerisindeki excel dosyalarını ve çalışma

İleti#39)  vuranoglu » 08 Nis 2021 21:02

İyi akşamlar
Sayın feraz,kanakan52,halily
Yardımlarınız için teşekkür ederim.
Kullanıcı avatarı
vuranoglu
Siteye Alışmış
 
Adı Soyadı:Mehmet VURANOĞLU
Kayıt: 08 Kas 2009 20:41
Konum: Ev
Meslek: Esnaf
Yaş: 65
İleti: 130
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İZMİR

Cevap: Aynı klasör içerisindeki excel dosyalarını ve çalışma

İleti#40)  halily » 09 Nis 2021 13:50

rica ederim
iyi çalışmalar
Kullanıcı avatarı
halily
Siteye Alışmış
 
Kayıt: 23 May 2019 11:16
Meslek: yok
Yaş: 41
İleti: 402
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: adana

ÖncekiSonraki

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: AhrefsBot, Google [Bot] ve 1 misafir

Bumerang - Yazarkafe