With Sheets("sayfa2")
Set firma_no = .Range("B5:B10" & .Cells(.Rows.Count, 1).End(xlUp).Row)
End With
With Sheets("sayfa1")
.Range("B43:B52").Resize(firma_no.Rows.Count, 1) = firma_no.Value
End With
sayfa 2 deki verileri sayfa1 taşırken liste uzun olduğundan okunması kolay olsun diye her bir satırdaki verinin zemin rengi mavi olsun yazı rengi beyaz nasıl yapabilirim ?
tşk ederim.
Set firma_no = .Range("B5:B10" & .Cells(.Rows.Count, 1).End(xlUp).Row)
End With
With Sheets("sayfa1")
.Range("B43:B52").Resize(firma_no.Rows.Count, 1) = firma_no.Value
End With
sayfa 2 deki verileri sayfa1 taşırken liste uzun olduğundan okunması kolay olsun diye her bir satırdaki verinin zemin rengi mavi olsun yazı rengi beyaz nasıl yapabilirim ?
tşk ederim.