düşeyara fonksiyonunda kaynak biçimlendirmesini koru

[orhancezayirli]

selamlar,
düşeyara fonksiyonu ile bir çalışma sayfasından getirdiğim verilerin, kaynak hücre biçimlendirmesini de koruyarak gelmesini istiyorum (dolgu rengi, yazı tipi, vs).
nasıl yapabilirim?

 

[orhancezayirli]

yardım edebilecek varsa çok memnun olurum. beni saatler sürecek ara/kopyala/yapıştır eziyetinden kurtarırsınız.

 

[Merhum İdris SERDAR]

.

Yerleşik veya kullanıcı tanımlı fonksiyonlarla bir hücrenin dolgu rengi, yazı tipi, font rengi vs. biçimlerini almak mümkün değil.

.

 

[orhancezayirli]

.

Yerleşik veya kullanıcı tanımlı fonksiyonlarla bir hücrenin dolgu rengi, yazı tipi, font rengi vs. biçimlerini almak mümkün değil.

.

teşekkürler hocam. en azından boşa umutlanıp vakit kaybetmemiş oldum

 

[Ömer]

Merhaba,

Örnek dosya ekleyerek sorunuzu ifade ederseniz alternatif çözümler üretebiliriz.

 

[orhancezayirli]

Merhaba,

Örnek dosya ekleyerek sorunuzu ifade ederseniz alternatif çözümler üretebiliriz.

merhaba ömer hocam,
örnek dosya ektedir. açıklamayı içine yazdım.
ilginize teşekkür ederim. umarım pekçok kişinin işine yarayacak bir sonuca ulaşırız

 

[Ömer]

Module kopyalayıp kartella sayfalarında çalıştırın. Yada sayfalara buton ekleyin ve kodu o şekilde çalıştırın. Sanırım bu şekilde işinize yarar.

Sub Kopya()
 
    Dim Sd As Worksheet, i As Long, c As Range
 
    Set Sd = Sheets("data")
    Range("B2:C" & Rows.Count).Clear
 
    For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
        Set c = Sd.[A:A].Find(Cells(i, "A"), LookIn:=xlValues, LookAt:=xlWhole)
            If Not c Is Nothing Then
            Sd.Cells(c.Row, "B").Copy Cells(i, "B")
            Sd.Cells(c.Row, "C").Copy Cells(i, "C")
        End If
    Next i
 
End Sub

.

 

[orhancezayirli]

teşekkür ederim ömer hocam,
kod tam olarak istediğimi yaptı. şimdi birkaç manipülasyonla kendi dosyama uygulayabilirim.
excel uçsuz bucaksız bir deniz, kullanmasını bilene