ornek.xlsx dosyasındaki bir aralığı toplu olarak diğer excellere kopyalama

[miadanoz]

Merhaba,

ornek.xlsx dosyasında bulunan A1:G2 satır aralığında olan tüm veriyi bir klasörde bulunan (5.000'den fazla) tüm excel dosyalarının yine A1:G2 kısmına yapıştırmasını istiyorum. Bu mümkün müdür acaba ? Birde #F2F2F2 hex kodunda olan bütün renkleri #DCE6F1 ile değiştirmeliyim.

Yardımcı olabilirseniz sevinirim.

 

[hayri13]

ornek.xlsx dosyasında bulunan A1:G2 satır aralığında bulunan tüm veriyi klasörde bulunan tüm excel dosyalarının yine A1:G2 kısmına yapıştırmasını istiyorum. Bu mümkün müdür acaba ?

boş sayfaların tümünü seçip, verilerinizi ilk boş sayfanıza bağlayıp enter dediğinizde, diğer sayfalardada veriler gelecektir.

 

[miadanoz]

boş sayfaların tümünü seçip, verilerinizi ilk boş sayfanıza bağlayıp enter dediğinizde, diğer sayfalardada veriler gelecektir.

merhaba hocam, klasörümde 5.000 den fazla excel var. klasör içinde var olan tüm excellerdeki biçimi değiştirmek için bunu yapmak istiyorum.

 

[Ömer]

Merhaba,

Rengi değişecek hücreler tüm excellerde aynı hücrelerde mi, eğer öyleyle bu hücreler hangileri?

Bu sorunuz diğer sorunuzla ilişkiliyse kodların devamına ilave yapılabilir.

 

[miadanoz]

Merhaba,

Rengi değişecek hücreler tüm excellerde aynı hücrelerde mi, eğer öyleyle bu hücreler hangileri?

Bu sorunuz diğer sorunuzla ilişkiliyse kodların devamına ilave yapılabilir.

maalesef hepsi aynı yerde değiller. Farklı standartlardaki yerdeler. evet aynı zamanda diğer sorum ile ilişkili hocam fakat ilk 6 satırı sildikten sonra ki hali ile A1:G2 de oluyor düzenlenecek dosyada.

 

[miadanoz]

Merhaba,

Rengi değişecek hücreler tüm excellerde aynı hücrelerde mi, eğer öyleyle bu hücreler hangileri?

Bu sorunuz diğer sorunuzla ilişkiliyse kodların devamına ilave yapılabilir.

rengini değiştiremiyorsakta diğer işlemi yapabilir miyiz hocam ?

 

[Ömer]

Merhaba,

Renk için 3-4 farklı standartlarda olan dosya ekler misiniz.

Diğer kısım için, A1:G2 kopyalanıp ilgili dosyanın A1 hücresine yapıştırılacak sanırım. Yapıştıralacak dosyada A1:G2 boş mu? Bu bölümle ilgili daha detaylı bilgi veriniz, ayrıca bu cevap diğer koda ilave mi olacak yoksa oradaki düzenlenmiş dosyaları bu şekilde tekrar mı düzenleyeceksiniz.

 

[miadanoz]

Merhaba,

Renk için 3-4 farklı standartlarda olan dosya ekler misiniz.

Diğer kısım için, A1:G2 kopyalanıp ilgili dosyanın A1 hücresine yapıştırılacak sanırım. Yapıştıralacak dosyada A1:G2 boş mu? Bu bölümle ilgili daha detaylı bilgi veriniz, ayrıca bu cevap diğer koda ilave mi olacak yoksa oradaki düzenlenmiş dosyaları bu şekilde tekrar mı düzenleyeceksiniz.

İndir dosa örnek

Dosyayı indir dosa örnek

dosya.co

düzenlenmiş dosyaları tekrar düzenleyeceğim hocam. çünkü diğer kodunuz ile bütün dosyaları düzenledim dün.

 

[Ömer]

Deneyiniz.
Not: Kodları örnek A1:G2 aralığını kopyalamak istediğiniz dosyada çalıştırınız.

Sub test()
    Dim yol As String, dosya As String, c As Range
    yol = "C:\2019\" 'dosya yolunu belirleyiniz.
    Application.ScreenUpdating = False
    dosya = Dir(yol & "*.xls*")
        Do While dosya <> ""
            Range("A1:G2").Copy
            Workbooks.Open yol & dosya
            Range("A1").PasteSpecial
            Set c = Range("B3:B" & Rows.Count).Find("Poz No", , xlValues, xlWhole)
            If Not c Is Nothing Then
                Cells(c.Row, "B").Resize(1, 6).Interior.Color = RGB(220, 230, 241)
            End If
            Set c = Range("B3:G" & Rows.Count).Find("Tarifi", , xlValues, xlWhole)
            If Not c Is Nothing Then
                Cells(c.Row, "B").Resize(1, 6).Interior.Color = RGB(220, 230, 241)
            End If
            ActiveWorkbook.Save
            ActiveWorkbook.Close
            dosya = Dir()
        Loop
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
    MsgBox "İşleminiz Bitti.", vbInformation
End Sub

 

[miadanoz]

çok teşekkür ederim hocam. süper çalışıyor.