inputbox tan değişkene değer atama

[leo57]

Merhaba Arkadaşlar,
makro ile düşeyara işlemimde benim belirlediğim sütunAdı ve sütunNumarası na göre işlem yaptırmak istiyorum fakat bir yerde takıldım yardımcı olursanız sevinirim. Inputbox tan alınan değer ile SütunNumarasi ni yaptım fakat
1.inputbox a " N" yazdığımda ("N1048576") gibi algılamasını istiyorum nasıl yapabilirim yardımınızı rica ediyorum. İlgili kod satırım aşağıdadır.


FazAl.Offset(0, 1) = WorksheetFunction.VLookup(FazAl, Sheets(1).Range("A1:N1048576"), sutunNumarasi, False)

inputbox1: Sütun Adı Gir = A
inputbox2: Sütun Numarası Gir = herhangi bir bir sütun numarası ( 1,3,6,7) gibi

Kısacası ("N1048576") nın yerine inputbox tan aldığım değeri ( A veya b , c ) gibi koymak istiyorum

Şimdiden Tşk.

 

[Huseyinkis]

Merhaba Range aralığını aşağıdaki gibi tanımlarmısınız

Tanımladığınız nurama koyu alana tanımlanacak.

Range(Cells(1,1),Cells(İnputbox,1048576)

 

[leo57]

Hüseyin Bey Merhaba,
hata alıyorum acaba yanlış mı yaptım yardımcı olurmusunuz rica etsem.
Bir kapatma parentezi eksik sanırım fakat nereye parentez koydumsa olmadı


FazAl.Offset(0, 1) = WorksheetFunction.VLookup(FazAl, Sheets(1).Range(Cells(1, 1), Cells(sutunAdi), 1048576), sutunNumarasi, False)
hata: If Err Then MsgBox FazAl.Address & " " & "teki hücre tanımlı değil."

yukarıdaki hücre tanımlı değil hatasını alıyorum.

 

[leo57]

Arkadaşlar konu ile ilgili yardımlarınızı bekliyorum.
Syg.

 

[dEdE]

Merhaba,
Yanlış anlamadımsa şöyle bir kod işe yarar.

    x = Application.InputBox("Lütfen Sütun Adını Yazınız.", "SÜTUN ADI")
    If x = False Then Exit Sub
    'x = "(" & """" & x & 1048576 & """" & ")" 'Parantez ve tırnak
    'x = """" & x & 1048576 & """" ' Tırnak
    x = x & 1048576 'Sütunadı ve 1048576
    MsgBox x

 

[leo57]

Sayın dEdE,
İlgin ve yardımın için teşekkür ederim.
Yukarıda yazdığınız kodu deneyeyim ve biraz daha uğraşayım yapamazsam dosyayı paylaşırım.
Syg.

 

[leo57]

Arkadaşlar sorunumu büyük ölçüde hallettim teşekkür ederim yardımcı olmaya çalışan arkadaşlara.

Ancak küçük bir sorum daha olacak.
Inputbox a girilen değer rakam değil ise uyarı verip işlemden çıkmasını istiyorum.
Bu konuda yardımcı olabilir misiniz.
Syg.

 

[apocalyt]

Meraba ,
Sayın dede nin yukarıda yazdığı koddaki ilk satırı aşağıdaki ile değiştirin..

x = Application.InputBox("Lütfen Sütun Adını Yazınız.", "SÜTUN ADI", , , , , , Type:=1)

 

[leo57]

Teşekkür ederim Sayın apocalyt,
Dediğiniz gibi yapınca oldu.
Sağolun.