VBA Kod yardımı

[Mehmet Sait]

Merhaba, makro ile sayfa 1'e gönderirken; A3 ile A370 arasındaki son boş hücreye gitmesi için
Sheets("Sayfa1").Select den sonra nasıl bir komut vermeliyim?

Yardımlarınız için teşekkür ederim.

 

[Ziynettin]

Sheets("Sayfa1").Select ActiveSheet.Range("A3:A370").Find("?", , , , xlByRows, xlPrevious).Offset(1, 0).Select

 

[Mehmet Sait]

Sheets("Sayfa1").Select ActiveSheet.Range("A3:A370").Find("?", , , , xlByRows, xlPrevious).Offset(1, 0).Select

Merhaba, tam istediğim gibi oldu. Teşekkür ederim.

Son bi soru daha rica edebilir miyim ?

Aşağıda ki kodlar yardımı ile sayfa oluştururken, sayfa adlarına tarih veren bir makro kullanmaktayım.
Bu makroda, sayfa oluşturulma bittikten sonra, bugünün tarihi olan sayafaya yönlendirme yapılabilir mi?

Teşekkür ederim.

Private Sub CommandButton1_Click()
  
    Application.ScreenUpdating = False
    Dim Sayfa As String
    Dim SY As Worksheet
    Set SY = Sheets("ANA")
    Dim SB As Worksheet
    Set SB = Sheets("BOŞ_TASLAK")
    
    For a = 3 To SY.[A65536].End(3).Row
        Sayfa = SY.Cells(a, "A")
        
    If SY.Cells(a, "B") <> "Aktarıldı" Then
        If SY.Cells(a, "A") <> "" Then
            If Not SayfaVarMi(Sayfa) Then
                SB.Copy After:=Sheets(Sheets.Count)
                ActiveSheet.Name = Sayfa
            Else
            End If
        End If
        
        sonsat = Sheets(Sayfa).[B65536].End(3).Row + 2
        SY.Range("B" & a & ":AC" & a).Copy Sheets(Sayfa).Cells(sonsat, "A")
        SY.Cells(a, "B") = "Aktarıldı"
    End If
    Next a
    
    SY.Select
    Application.ScreenUpdating = True
    MsgBox " B i t t i "


For Each Sheet In Worksheets
Sheet.Protect Password:="3300"
Next Sheet

End Sub

 

[Korhan Ayhan]

Kodun sonuna aşağıdaki satırı ekleyip deneyiniz.

Sheets(CStr(Date)).Select

 

[Mehmet Sait]

Kodun sonuna aşağıdaki satırı ekleyip deneyiniz.

Sheets(CStr(Date)).Select

Tam istediğim gibi çalıştı. Teşekkür ederim hocam.