- Katılım
- 24 Şubat 2009
- Mesajlar
- 1,077
- Excel Vers. ve Dili
- 2016
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub b_icin()
For i = 2 To 7
Sheets("GİRİŞ").Cells(3, i).Value = Sheets("GİRİŞ").Cells(6, i).Value
Next
End Sub
Sub a_icin()
For i = 2 To 7
Sheets("GİRİŞ").Cells(3, i).Value = ""
Next
End Sub
Teşekkürler halit abi