- Katılım
- 28 Mayıs 2007
- Mesajlar
- 4
- Excel Vers. ve Dili
- 2003 türkçe
Ekli dosyada ana hesapları satır olarak koyu yapmak istiyorum. Yarsımcı olursanız sevinirim.
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub boldyap()
For i = 2 To Cells(65536, 4).End(xlUp).Row
If Len(Cells(i, 1)) = 3 Then Cells(i, 2).Font.Bold = True
Next
End Sub
Sub boldyap()
For i = 2 To Cells(65536, 4).End(xlUp).Row
If Len(Cells(i, 1)) = 3 Then
Cells(i, 1).Font.Bold = True
Cells(i, 2).Font.Bold = True
Cells(i, 3).Font.Bold = True
Cells(i, 4).Font.Bold = True
Cells(i, 5).Font.Bold = True
Cells(i, 6).Font.Bold = True
End If
Next
End Sub