- Katılım
- 31 Ağustos 2010
- Mesajlar
- 387
- Excel Vers. ve Dili
- Excel 2007-2010 Eng
Open Office Trk
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub duzenle()
For x = 1 To [b65536].End(3).Row
If Cells(x, "c") = "" Then
Cells(x, "c") = Cells(x, "d")
Cells(x, "d").ClearContents
End If
Next
MsgBox "Sütun düzenlendi.", vbInformation, "DURUM"
End Sub
Rica ederim. İyi çalışmalar.Hocam ellerinize sağlık, çok teşekkür ederim.