- Katılım
- 6 Aralık 2006
- Mesajlar
- 54
- Excel Vers. ve Dili
- Ofix XP ve 2003
E1 ve E2 satırlarında 2 adet numara var... Aşağıda bulunan koda eklenebilir bir şekilde nasıl bir kod yazabilirizki E1 ve E2 satırındaki verileri boş bir excel sayfasına sırayla nasıl yazdırabiliriz?
Sub tebarka()
'
' tebarka Makro
' Makro Adalet tarafından 28.09.2006 tarihinde kaydedildi.
'
Sheets("ARKA").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("FORM").Select
Selection.ClearContents
Range("E5").Select
Selection.ClearContents
On Error Resume Next
[e1] = [e1] + 1
[e2] = [e2] + 1
ActiveWorkbook.Save
End Sub
Sub tebarka()
'
' tebarka Makro
' Makro Adalet tarafından 28.09.2006 tarihinde kaydedildi.
'
Sheets("ARKA").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("FORM").Select
Selection.ClearContents
Range("E5").Select
Selection.ClearContents
On Error Resume Next
[e1] = [e1] + 1
[e2] = [e2] + 1
ActiveWorkbook.Save
End Sub