inputbox ile kayıt

[udentr2002]

Merhaba ekli dosyadada anlatmaya çalıştım. Belirli aralıklardaki hücreleri kopytalayıp aktif olan hücreye yapıştırıyorum . Buraya kadar tamam yanlız benim istediğim Mesala bir input box a A1, A29, A40.... gibi hücreleri dışardan girsek ve makro bizim girdiğmiz hücrelere belirlediğmiz alanı yapıştırsa böyle bir şey mümkün olurmu acaba şimdiden ilgilenen arkadaşalrıma teşekkür ederim

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz. Umarım faydası olur.

Sub EKLE()
    ADRES = Application.InputBox("HÜCRE ADRESİ GİRİNİZ.")
    If ADRES = "" Or ADRES = False Then Exit Sub
    Range(ADRES).Select
    [A1:J7].Copy
    ActiveSheet.Paste
    Application.CutCopyMode = False
End Sub

 

[mehmett]

Dosyanıza yazdığım makro işinizi görür mü acaba?

 

[udentr2002]

sn mehmet ve cost control hocalarım

ayrı ayrı her ikinizide teşekkür ederim ilgilendiğiniz için Yanlız;

her iki kodda çalışıyor yanlız anlatmaya çalıştığım şu;
o input boxa ard arda mesala 5 yada 10 tane farklı hücre adı girerk yaptırabilirmiyim yani input boxa a9, a20, a32, a40, a55 gibi hücreleri yazıp tuşladığımda belirttiğim tüm hücrelerin hepsine yapıştırması bunu nasıl yapabiliriz.
Not : inputboxa gireceğim hücre adeti sabit değildir bazen 5 hücrede girebilrim ama başka bir sayfada belki 10 tanede hücre adedi girebilirim
yardım ederseniz çok sevinirim

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz. Hücre adreslerini girerken A15,A20,B30 şeklinde giriniz. Umarım faydası olur.

Sub EKLE()
    ADRES = Application.InputBox("HÜCRE ADRESİ GİRİNİZ.")
    If ADRES = "" Or ADRES = False Then Exit Sub
    HÜCRE = Split(ADRES, ",")
    On Error Resume Next
    For X = 0 To UBound(HÜCRE)
    Range(HÜCRE(X)).Select
    [A1:J7].Copy
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Next
End Sub

 

[akgüvercin]

COST_CONTROL teşekkürler.