assenucler
Altın Üye
- Katılım
- 19 Ağustos 2004
- Mesajlar
- 3,588
- Excel Vers. ve Dili
- Ofis 365 TR 64 Windows 11 Pro x64 TR
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sayın Ziynettin,
Bazı excel dosyalarında "Tutar" sütununda da aynı durumla karşılaşabiliyorum.
Eğer ekteki dosyada olduğu gibi, F sütununda "Tutar" hücreleri de "Genel" biçiminde olursa, Koda nasıl bir ekleme yapılır?
Teşekkürler.
Sevgi ve saygılar.
Sub deneme()
For i = 6 To 500
Cells(i, 2) = CDate(Cells(i, 2))
[COLOR="Red"]Cells(i, 3) = Cells(i, 3) * 1[/COLOR]
Next i
End Sub
[COLOR="Blue"]Cells(i, 3) = CDbl(Cells(i, 3))[/COLOR]