INPUTBOX'DA Değişken tanımlama nasıl yapabilirim

[parsley2]

'i = 1
'ı = 2
'Dim s As Integer
'Dim n As Integer

'For i = i To Say
' n = Sayfa18.Cells(2, i)

's = InputBox(Range + "Bilgisini girinz", _
'"Bilgi Tanıtma", "Bilgi")
Inputbox ta değişken tanımlamasını nasıl yapabilirim. Yani Rakam değişkeni kullanabiliyoruz ancak ben döngüde yer alan sırasıyla (adı ) (baba adı )gibi bilgileri göstermesini istiyorum.

 

[kulomer46]

birde böyle dene...

s=InputBox Range & "Bilgisini giriniz", _
"Bilgi Tanıtma", "Bilgi"

 

[Recep İpek]

Aşağıdaki kodları deneyebilirsiniz.

Sub BilgiGiris()
say = [a65536].End(3).Row
For i = 2 To say
veri = Cells(i, "a").Value & " Bilgisini Giriniz"
s = InputBox(veri, "Bilgi Tanıtma", "Bilgi")
Next i
End Sub

 

[parsley2]

Döngüyü sağladım ancak Replace gönderemedim

Sayın Ripek ilginize çok teşekkür ederim. vermiş olduğunuz kod çok işime yaradı, döngüyü sağladım ancak,
veri bilgisini aşaıdaki kotla edinme.text içinde kontrol edip İnputboxtan gelen bu s bilgisi ile değiştiremedim.

UserForm2.edinme.Text = Replace(UserForm2.edinme.Text, "veri", s)


Dim s As Variant
Dim veri As Variant
Dim i As Integer
Say = Sayfa18.Range("ık1")
i = 242

For i = i To i + Say

' n = Sayfa18.Cells(2, i)
veri = Sayfa18.Cells(2, i).Value & " Bilgisini Giriniz"

s = InputBox(veri, "Bilgi Tanıtma", "Bilgi")

UserForm2.edinme.Text = Replace(UserForm2.edinme.Text, "veri", s)


i = i + 1

Next i

 

[parsley2]

İşlem tamam

Bütün arkadaşlara teşekkür ederim. Veri de bir yanlışlık yapmışım
döngü ve replace tamam saygılar sevgiler