Düşeyarada Biçimlendirmeyi Korumak

[Redial]

Günaydın,

Düşeyara ile bulduğum hücrenin biçimlendirmesini nasıl muhafaza edebilirim. Sadece veriyi getiriyor, verinin bulunduğu hücrenin biçimlendirmesini değil.

Teşekkürler

 

[İhsan Tank]

örnek dosya eklermisiniz

 

[Redial]

Dosya ekledim. Sayfa 1 de yer alan Teknik Öncelik Puanın sayfa 2 ye de şeklini koruyarak aktarılmasını istiyorum -mümkünse-. TeşekkürlerEkli dosyayı görüntüle Kitap11.xlsx

 

[İhsan Tank]

Dosya ekledim. Sayfa 1 de yer alan Teknik Öncelik Puanın sayfa 2 ye de şeklini koruyarak aktarılmasını istiyorum -mümkünse-. TeşekkürlerEkli dosyayı görüntüle 89115

merhaba
dosyanızı düzenledim bir de sorunuza örnek dosya eklerken 2003 formatın eklerseniz daha iyi olur. çünkü herkeste 2007 yok.
örnek dosyayı incelersen

 

[Necdet]

Merhaba,

Düşeyara Fonksiyonu Biçimlendirmeyi getirmez.

İstediğinizi makro ile yapmak olası. Aşağıdaki kodları Sayfa2 nin kod bölümüne kopyalayınız. A sütununda yazacağınız değere göre Sayfa1 de arar ve B ve C sütunlarını getirir.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
Dim s1 As Worksheet
Dim c  As Range
Set s1 = Sheets("Sayfa1")
If Target.Value = "" Then
    Range("B" & Target.Row & ":C" & Target.Row).ClearContents
Else
    Set c = s1.Range("a:a").Find(Target.Value, LookIn:=xlValues, LookAt:=xlWhole)
    If Not c Is Nothing Then
        s1.Range("B" & c.Row & ":C" & c.Row).Copy Range("B" & Target.Row & ":C" & Target.Row)
    Else
        Range("B" & Target.Row & ":C" & Target.Row).ClearContents
    End If
End If
End Sub

 

[Redial]

Yardımlarınız için çok teşekkür ederim

 

[İhsan Tank]

Yardımlarınız için çok teşekkür ederim

rica ederim
iyi çalışmalar