- Katılım
- 11 Ekim 2005
- Mesajlar
- 140
merhaba, kalın harfle yazdığım kısımda hata veriyor amacım aynı sayfa üzerinde c, v, cc sutunlarına veri yazdırmak bunun için son satırı buldurmak istedim fakat hata verdi yardımcı olabilirmisiniz.
syg.
Sub Macro1ıfsmüşteri()
'
' Macro1ıfsmüşteri Macro
' Macro recorded 16.04.2006 by kgulal
Sheets("kopya").Select
Range("C6:C21").Select
Selection.Copy
Sheets("SAATLİK MÜŞTERİ_IFS ").Select
[c65536].End(3).Row
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Sheets("kopya").Select
Range("D621").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("SAATLİK MÜŞTERİ_IFS ").Select
[v65536].End(3).Row
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Sheets("kopya").Select
Columns("G:G").ColumnWidth = 18.57
Range("G6:G21").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("SAATLİK MÜŞTERİ_IFS ").Select
[cc65536].End(3).Row
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Sheets("kopya").Select
Range("A1").Select
Application.CutCopyMode = False
End Sub
syg.
Sub Macro1ıfsmüşteri()
'
' Macro1ıfsmüşteri Macro
' Macro recorded 16.04.2006 by kgulal
Sheets("kopya").Select
Range("C6:C21").Select
Selection.Copy
Sheets("SAATLİK MÜŞTERİ_IFS ").Select
[c65536].End(3).Row
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Sheets("kopya").Select
Range("D621").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("SAATLİK MÜŞTERİ_IFS ").Select
[v65536].End(3).Row
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Sheets("kopya").Select
Columns("G:G").ColumnWidth = 18.57
Range("G6:G21").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("SAATLİK MÜŞTERİ_IFS ").Select
[cc65536].End(3).Row
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Sheets("kopya").Select
Range("A1").Select
Application.CutCopyMode = False
End Sub