Excel - hücre içeriğiyle biçimlendirmesini de kopyalama?

Kodla Büyü
DotCom

DotCom

Hiperaktif Üye
Hiperaktif
Mesajlar
2,918
Merhaba ,

c1 hücresinde =A1 fomülü var.

a1 hücresine , italik , kalın gibi biçimlendirme uyguladığımda c1 hücresine bu biçimlendirmeler aktarılmıyor.

hücre değeriyle birlikte biçimlendirmesini nasıl aktarabilirim?

kopyala , yapıştır - biçimleri yapıştır çok pratik değil. başka formüllerle birbirine bağlanmış geniş bir çalışma kitabında uygulanabilecek bir çözüm arıyorum.
 
Re: Exel - hücre içeriğiyle biçimlendirmesini de kopyalama?

Bunu bir formülden çok makro ile falan yapabilirsiniz gibi geliyor
 
Bu makro a1 hücresinin değeri değiştikçe biçimlendirmeyle birlikte otomatik olarak c1 e aktarır.
Kod: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A1") = Range("C1") Then Exit Sub
If Range("A1") <> "" Then: Range("A1").Copy: Range("C1").PasteSpecial
Application.CutCopyMode = False
End Sub
 
Açıklama için teşekkürler.

Kendi çalışmama uyarlamam gerekecek , bağlantılı sayfaları ayarlayabilirsem çok faydalı olacak.
 
İnternette bulduğum buna benzer örnek bir makro,

1. sayfada değişik biçimler olan veriler formülle 2. sayfaya bağlanmıştır. Siz 2. sayfayı açıp bir hücreyi tıkladığınız anda biçimler otomatik olarak aktarılacaktır.

Sayfa2 de kullanılan kod;

Kod: 
Option Explicit
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim Hücre As Range, FORMÜL As String, SAYFA As String, ADRES As String
    On Error GoTo Son
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    For Each Hücre In Cells.SpecialCells(xlCellTypeFormulas, 23)
        If InStr(1, Hücre.Formula, "!") > 0 Then
            FORMÜL = Hücre.Formula
            SAYFA = Replace(Mid(Hücre.Formula, 1, InStr(1, Hücre.Formula, "!") - 1), "=", "")
            ADRES = Replace(Mid(Hücre.Formula, InStr(1, Hücre.Formula, "!") + 1, 255), "=", "")
            Sheets(SAYFA).Range(ADRES).Copy Hücre
            Hücre.Formula = FORMÜL
        End If
    Next
Son:
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub
 
tahtakama' Alıntı:
İnternette bulduğum buna benzer örnek bir makro,

1. sayfada değişik biçimler olan veriler formülle 2. sayfaya bağlanmıştır. Siz 2. sayfayı açıp bir hücreyi tıkladığınız anda biçimler otomatik olarak aktarılacaktır.

Sayfa2 de kullanılan kod;

Kod: 
Option Explicit
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim Hücre As Range, FORMÜL As String, SAYFA As String, ADRES As String
    On Error GoTo Son
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    For Each Hücre In Cells.SpecialCells(xlCellTypeFormulas, 23)
        If InStr(1, Hücre.Formula, "!") > 0 Then
            FORMÜL = Hücre.Formula
            SAYFA = Replace(Mid(Hücre.Formula, 1, InStr(1, Hücre.Formula, "!") - 1), "=", "")
            ADRES = Replace(Mid(Hücre.Formula, InStr(1, Hücre.Formula, "!") + 1, 255), "=", "")
            Sheets(SAYFA).Range(ADRES).Copy Hücre
            Hücre.Formula = FORMÜL
        End If
    Next
Son:
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub
Genişletmek için tıkla ...

Teşekkürler.

Bağlantılı sayfalardaki biçimleri aktarmak mümkün oldu bu kod sayesinde.
 
ilk sayfadaki değer , koşullu biçimlendirme ile biçimlendirildiğinde maalesef 2.sayfaya biçimleri aktaramadım
 
DotCom' Alıntı:
ilk sayfadaki değer , koşullu biçimlendirme ile biçimlendirildiğinde maalesef 2.sayfaya biçimleri aktaramadım
Genişletmek için tıkla ...

Vermiş olduğum kodu ben denedim koşullu biçimlendirme de uygulamadım sorun çıkmadı. örnek dosya ekte
 

Ekli dosyalar

  • rnek.rar
    9 KB · Görüntüleme: 55
  • deneme.rar
    17.1 KB · Görüntüleme: 75
tahtakama' Alıntı:
DotCom' Alıntı:
ilk sayfadaki değer , koşullu biçimlendirme ile biçimlendirildiğinde maalesef 2.sayfaya biçimleri aktaramadım
Genişletmek için tıkla ...

Vermiş olduğum kodu ben denedim koşullu biçimlendirme de uygulamadım sorun çıkmadı. örnek dosya ekte
Genişletmek için tıkla ...

Örnekleriniz sorunsuz çalışıyor.

Çalışma kitabımdaki yapıya tam olarak entegre edemedim.

Biraz fazla bağlantılı olduğu için tam olarak uyduramadım. Birkaç bilgiyi silince biçimlendirme aktarıldı ama tabi bilgilerle birlikte bağlamaya çalışıyorum.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst