- Katılım
- 6 Aralık 2006
- Mesajlar
- 54
- Excel Vers. ve Dili
- Ofix XP ve 2003
1 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 veri boş bir excel sayfasına listeleme yapılır? Kaydetme işleminden sonra yapması gerekiyor...
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