Hücreleri tek tek gezip Tuşa basmak

[yNsr43]

Merhaba arkadaşlar, A sütununda bir listem var bu listede boş hücreye gelene kadar tek tek tıklayıp "F4" tuşuna basmasını istiyorum. bunu nasıl yapabiliriz ?
teşekkürler.

 

[mrwarrior]

Sub f4yap()
ilksatir=1
Do While cells(ilksatir,1)<>""
Cells(ilksatir, 1).select
Sendkeys "{F4}"
ilksatir=ilksatir+1
Loop
End sub

Şeklinde olabilir.

 

[Muzaffer Ali]

F4 tuşuna neden basmak istiyorsunuz? F4 ile yada tam olarak yapmak istediğiniz şey nedir?

 

[yNsr43]

F4 tuşuna neden basmak istiyorsunuz? F4 ile yada tam olarak yapmak istediğiniz şey nedir?

Son yaptığım işlemi listedekilere tekrar ettirmek.

 

[Korhan Ayhan]

Alternatif;

Option Explicit

Sub Copy_format()
    Dim My_Area As Range, Sample_Cell As Range
    
    On Error Resume Next
    Set Sample_Cell = Application.InputBox("Please select the sample cell.", "Selection Sample Cell", ActiveCell.Address(0, 0), Type:=8)
    On Error GoTo 0
    
    If Sample_Cell Is Nothing Then
        MsgBox "In order to continue the process, you must select a sample cell.", vbCritical
        Exit Sub
    End If
    
    On Error Resume Next
    Set My_Area = Nothing
    Set My_Area = Range("A2:A" & Rows.Count).SpecialCells(xlCellTypeConstants, 23)
    On Error GoTo 0
    
    If Not My_Area Is Nothing Then
        Sample_Cell.Copy
        My_Area.PasteSpecial xlPasteFormats
        Application.CutCopyMode = False
        MsgBox "Your transaction is complete."
    Else
        MsgBox "The cell to apply is not found!", vbCritical
    End If

    Range(Sample_Cell.Address).Select
    
    Set Sample_Cell = Nothing
    Set My_Area = Nothing
End Sub