biçim boyacısı kopyalama ile ilgili

[modoste]

merhaba sayın hocalarım
örneğin B4:J24 arasında bir tablom var ve bundan ben altalta 10 tane kopyaladım diyelim.
sonra B4:J24 arasında bazı biçimler yaptım kalınlık renk kenarlık vs. tek seferde kopyaladığım 10 tane daha tabloya nasıl aynı biçimleri yapabilirim.

 

[Korhan Ayhan]

Belirttiğiniz aralığı seçin.
Biçim boyacısına çift tıklayın. Böylece diğer alanların ilk hücresini seçtiğinizde biçim boyacısı kapanmayacaktır.
İşiniz bitene kadar ilk hücrelere tıklamanız yeterli olacaktır.
En son ESC tuşuna basıp biçim boyacısını pasif hale getirebilirsiniz.

Başka bir yöntemde makro kullanmaktır.

 

[modoste]

Hocam bu şekilde değil örnekte 10 tablo dedim ama aslen şöyle 50 satır 10 sütundan oluşan bir tablomdan 49 kopya yapınca 2500 satır ve 10 sütunluk bir tablom var diyelim ben ilkini yani 50 satır 10 sütunda birçok biçimsel değişiklik yaptım. En kısa şekilde diğer 49 tane aynı tablomu nasıl biçimsel dönüştürebilirim. Biçim boyacısıyla çift tıklayıp 49 tane daha hücreyi tıklamak uzun olucak

 

[Korhan Ayhan]

O zaman önerdiğim ikinci yöntemi denemek gerekiyor.

 

[Seyit Tiken]

Aşağıdaki gibi deneyiniz.

 

[modoste]

Sayın seyit hocam sorumu tam anlayamadınız galiba biraz daha detaylı bir soru
Korhan hocam makro ile çözüm yapabilir miyiz ancak. Değişken durumlarıda kapsayacak dinamik bir makro gibi. Örneğin bir çalışmam için diyelim tüm tablom B1100 olsun ama benim tablolarım 10 satırlık yani altalta 10 tablo olsun. Makro içinde tüm tablo seç yerine B1100 yazsam sonra ilk tabloyu seç dese onuda B110 yazsam bir kutucuğa hücreye vs

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Bicim_Kopyala()
    Dim Alan As Range, Kopyalanacak_Tablo As Range, X As Long
    
    On Error Resume Next
    Set Alan = Application.InputBox("Lütfen işlem yapmak istediğiniz alanı seçiniz...", "Alan Seçimi", Type:=8)
    On Error GoTo 0
    
    If Alan Is Nothing Then
        MsgBox "Lütfen alan seçimi yapınız!", vbCritical
        Exit Sub
    End If
    
    On Error Resume Next
    Set Kopyalanacak_Tablo = Application.InputBox("Lütfen biçimini kopyalamak istediğiniz tabloyu seçiniz...", "Tablo Seçimi", Type:=8)
    On Error GoTo 0
    
    If Kopyalanacak_Tablo Is Nothing Then
        MsgBox "Lütfen biçimini kopyalamak istediğiniz tablo seçimini yapınız!", vbCritical
        Exit Sub
    End If
    
    Application.ScreenUpdating = False
    
    Kopyalanacak_Tablo.Copy
    
    For X = 1 To Alan.Rows.Count Step Kopyalanacak_Tablo.Rows.Count
        Alan.Cells(X, 1).PasteSpecial xlFormats
    Next

    Application.CutCopyMode = False

    Application.ScreenUpdating = True

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[modoste]

Korhan Hocam
az önce uyguladım makroyu ama bir yerde hata oldu
dosyamı ekledim bakabilir misiniz

dosyamın ilk durumunda dolgu hiç yok ve yazı rengi siyah dı. makroyu yaptım sonra B2:J25 arası ilk tablomu biçimledim ekteki gibi
makroyu çalıştırıp seçimler yaptım ama olmadı
nerde hatam var yardımcı olur musunuz

 

[Korhan Ayhan]

Makroyu çalıştırdım.
İlk gelen inputbox için B26:J97 hücre aralığını seçtim.
İkinci gelen inputbox için B2:J25 hücre aralığını seçtim.
Sonuç olarak makro sorun vermeden çalıştı ve işlemi tamamladı.

 

[modoste]

ilk açılan pencerede istenenle 2. açılanı ters yazmışım ondan olmuş
anladım ilkinde tüm tabloyu seçecekmişim
kusuruma bakmayın tekrar teşekkür ederim.