verileri fontları ile getir

[memodino]

Arkadaşlar kolay gelsin sorunum var yardıma ihtiyacım oldu;
düşey ara ile veri çağırdığımda gelen veri ile beraber formatı da gelsin.

 

[Ömer]

Merhaba,

Çalışma sayfasının kod bölümüne kopyalayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B10]) Is Nothing Then Exit Sub
Range("C" & WorksheetFunction.Match(Target, [B3:B7], 0) + 2).Copy Range("C10")
End Sub

.

 

[memodino]

Bu kadar hızlı çözüm... Süpersiniz ellerinize sağlık hocam....

 

[memodino]

Hocam bir küçük rica daha eğer veriler başka sayfadaysa kod yazımı nasıl olurdu.yani katagori tablosu sayfa 2 de olsaydı sayfa 1 de b10 hücrei olsaydı nasıl yapabiliridk..
yinede gönderdiğiniz çözüm için çok teşekkürler

 

[Ömer]

İlaveyi kırmızı ile işaretledim.

Range("C" & WorksheetFunction.Match(Target,[COLOR=red][B] Sheets("Sayfa2").[/B][/COLOR][B3:B7], 0) _
+ 2).Copy Range("C10")

.