macroda ınputbox

[mahur.zgr]

Arkadaşlar merhaba kolay gelsin hepinize sizden bir istirhamım olacak size zahmet macrolarda yenıyım. Sorum şu ınputbox yazdıgım bılgılerı excele doksun ve daha sonra kendı kendıne bır alt satıra gecsın yardımcı olursanız çok sevinirim

 

[çıtır]

Deneyiniz.

Sub yazar()
yaz = Application.InputBox("Veriyi yazınız", "Yazılaçak veri")
    If yaz = "" Or yaz = False Then
    MsgBox "İptal edildi"
    Exit Sub
    End If
    son = Cells(65535, "A").End(3).Row + 1
Range("A" & son) = yaz
End Sub

 

[mahur.zgr]

teşekkürler

 

[çıtır]

teşekkürler

Rica ederim.Dönüş yaptığınız için teşekkür ederim.