hücreye toplu değer girme

[bebar]

Merhaba;

x= Sheets("sayfa2").Range("V2").Value " hücresindeki değer bir rakam içeriyor ben bu rakam kadar

Sheets("sayfa3").Range("A2:Ax") hücresine "S" yazmasını istiyorum,kolay birşey ama bir türlü yapamadım yardımcı olursanız memnun olurum.

 

[muygun]

Merhaba;

Boş bir modüle ekleyerek deneyin.

Sub S_yaz()
Application.ScreenUpdating = False
On Error Resume Next
satırr = Sheets("Sayfa2").Range("V2").Value
Sheets("Sayfa3").Range("a2:ax" & satırr).ClearContents
For i = 2 To satırr
For k = 1 To 50
Sheets("Sayfa3").Cells(i, k) = "S"
Next k
Next i
Application.ScreenUpdating = True
MsgBox "İşlem TAMAM.", vbInformation
End Sub

İyi çalışmalar.

 

[bebar]

hocam teşekkür ederim ama veriable not defined hatası veriyor

 

[Korhan Ayhan]

Deneyiniz.

Sub TEST()
    X = Sheets("Sayfa2").Range("V2").Value
    Sheets("Sayfa3").Range("A2:A" & Rows.Count).ClearContents
    If X >= 2 Then
        Sheets("Sayfa3").Range("A2:A" & X).Value = "S"
    End If
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[bebar]

korhan hocam çok teşekkür ederim.