Borc-alacak ayni satır

   A?agydaki excel macro ile toplam satyryndan sonra 1 bo?luk açyyor,toplam fontlary kyrmyzy,alt çyzgyly ve 12 boyutuna getyryyor,fontunuda cambria yapyyor.

Sub boya()
    For i = [a65536].End(3).Row To 3 Step -1
         If Cells(i, 1) <> Cells(i - 1, 1) Then Range(Cells(i, 1), Cells(i, "o")).Insert
    Next
For X = 2 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(X, 2).Value = "" Then
Range(Cells(X, 2), Cells(X, Cells(X, Columns.Count).End(xlToLeft).Column)).Font.Color = vbRed
Range(Cells(X, 2), Cells(X, Cells(X, Columns.Count).End(xlToLeft).Column)).Font.Size = 12
Range(Cells(X, 2), Cells(X, Cells(X, Columns.Count).End(xlToLeft).Column)).Font.Name = "Cambria"
Range(Cells(X, 2), Cells(X, Cells(X, Columns.Count).End(xlToLeft).Column)).Font.Underline = True

End If
Next

End Sub

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
social Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Kidemli Üye Kayıt Tarihi: 10 Ekim 2007 Konum: İzmir Durum: Aktif Değil Puanlar: 512	Mesaj Seçenekleri Yanıt Yaz Alıntı social Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 17 Ocak 2015 Saat 10:00
	A?agydaki excel macro ile toplam satyryndan sonra 1 bo?luk açyyor,toplam fontlary kyrmyzy,alt çyzgyly ve 12 boyutuna getyryyor,fontunuda cambria yapyyor. Sub boya() For i = [a65536].End(3).Row To 3 Step -1 If Cells(i, 1) <> Cells(i - 1, 1) Then Range(Cells(i, 1), Cells(i, "o")).Insert Next For X = 2 To Cells(Rows.Count, 1).End(xlUp).Row If Cells(X, 2).Value = "" Then Range(Cells(X, 2), Cells(X, Cells(X, Columns.Count).End(xlToLeft).Column)).Font.Color = vbRed Range(Cells(X, 2), Cells(X, Cells(X, Columns.Count).End(xlToLeft).Column)).Font.Size = 12 Range(Cells(X, 2), Cells(X, Cells(X, Columns.Count).End(xlToLeft).Column)).Font.Name = "Cambria" Range(Cells(X, 2), Cells(X, Cells(X, Columns.Count).End(xlToLeft).Column)).Font.Underline = True End If Next End Sub