Alan seçme

[burhancavus61]

A2 hücresinden başlayarak W sütunu son dolu alana kadar nasıl seçim yapabilirim. A2:W150 gibi W150 değişken nerde biterse

 

[PLİNT]

Merhaba
Aşağıdaki kodlarla "A2" den başlayarak sayfadaki son satır ve son dolu sütun adreslerini bulursunuz

sonsat = ActiveSheet.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
sonsut = ActiveSheet.Cells.Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
Range(Cells(2, "A"), Cells(sonsat, sonsut)).Select

 

[Seyit Tiken]

Bu şekilde deneyiniz.

Range("A2:W" & Range("A150").End(3).Row).Select

 

[burhancavus61]

Hocam aşağıdaki kodda iki seferde bir hata veriyor. çözemedim sizin makroyla ilişkilendireyim dedim ama kodda neden hata var. hata
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False burada oluyor

Sub Taşı()
    Sheets("Veri Al").Select
    ActiveWindow.SmallScroll Down:=-6
    Range("A2").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("Puantajlar").Select
    ActiveSheet.Unprotect "61"
    Range("C" & [C500].End(3).Row + 1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("C4").Select
    Application.CutCopyMode = False
    
    Range("C" & [C500].End(3).Row + 1).Select
    ActiveSheet.Protect "61", DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFiltering:=True

    Sheets("Veri Al").Select
    Range("A2").Select
End Sub

 

[burhancavus61]

Çözdüm hocam sayfa korumasından kaynaklanıyor.