dolu olan satıra kadar secme

[ioztelli]

merhabalar hemen sorunuma geceyim
elimdeki excel dosyasındaki u sutununa yeni değerler hesaplatıp yazdırıyorum ama hangi satırda (yani boş satırda) durdurması gerektiğini çözemedim. bu makro kodunda 514de duruyor ama diger excel dosyalarında bu değer değişiyor.Bunu nasıl ayarlayabilirim.
hazırladığım makro kodu şöyle

Sub konum()
'
' konum Makro
' Makro ioztelli tarafından 12/2/2007 tarihinde kaydedildi.
'
' Klavye Kısayolu: Ctrl+q
'
Range("T1").Select
Application.CutCopyMode = False
Selection.ClearContents
Columns("T:T").Select
Selection.Insert Shift:=xlToRight
Selection.Insert Shift:=xlToRight
Range("U1:U2").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
ActiveCell.FormulaR1C1 = "referans ölçülerinden toplam sapma"
ActiveCell.FormulaR1C1 = "Referans ölçülerinden toplam sapma"
With ActiveCell.Characters(Start:=1, Length:=34).Font
.Name = "Arial Tur"
.FontStyle = "Kalın"
.Size = 8
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 5
End With
Range("U3").Select
Columns("U:U").EntireColumn.AutoFit
Columns("U:U").ColumnWidth = 18.43
Columns("U:U").ColumnWidth = 16.57
ActiveCell.FormulaR1C1 = "=SQRT(RC[-4]+RC[-3])"
Range("U4").Select
ActiveCell.FormulaR1C1 = ""
Range("U3").Select
Selection.AutoFill Destination:=Range("U3:U514"), Type:=xlFillDefault
Range("U3:U514").Select
Sheets("Grafik").Select
ActiveSheet.ChartObjects("Grafik 4").Activate
ActiveWindow.Visible = False

 

[Mahmut Kök]

Selection.AutoFill Destination:=Range("U3:U514"), Type:=xlFillDefault

satırını aşağıdaki satırla değiştirip deneyin


Selection.AutoFill Destination:=Range("U3:U" & [u65536].end(3).row), Type:=xlFillDefault

 

[ioztelli]

Selection.AutoFill Destination:=Range("U3:U514"), Type:=xlFillDefault

satırını aşağıdaki satırla değiştirip deneyin


Selection.AutoFill Destination:=Range("U3:U" & [u65536].end(3).row), Type:=xlFillDefault

Dediğiniz gibi yaptım ama olmadı şöyle bir hata aldım "Range sınıfının Autofill yöntemi başarısız"

 

[Mahmut Kök]

[u65536].... ifadesini [a65536].... olarak dener misiniz.?

 

[ioztelli]

[u65536].... ifadesini [a65536].... olarak dener misiniz.?

evet böyle yapınca hal oldu çok sağolun:bravo: