vba-excel (for next)

[nesat]

bir for next döngüsü yaptım

for a=1 to 100
cells(a,5)=range(a1)
cells(a,6)=range(a2)
cells(a,7)=range(a3)
cells(a,8)=range(a4)
range(a1)=""
range(a2)=""
range(a3)=""
range(a4)=""
next a



şimdi burda amacım veri tabanı oluşturmak
a1,a2,a3,a4 girdigim değerleri
a=1 için (döngüden)
e1=a1
f1=a2
g1=a3
h1=a4
oluyo
a=2 için
e2=a1
f2=a2
g2=a3
h2=a4
.......
.......

sorun şu
döngü içinde her a değeri için
önce a1 hücresinde sonra a2,a3,a4 de
imlecin değer girmemiz için beklemesini istiyorum
bi türlü yapamadım

inputbox olabilir fakat ben hücrede beklemesini istiyorum

imlecin beklememesi durumunda döngü heme bitiyor hep aynı değeri yazıyor

cells(a,5)=range(a1)
cells(a,6)=range(a2)
cells(a,7)=range(a3)
cells(a,8)=range(a4

bu kodlar arasına hangi kodu yazmam gerekiyorki döngü dursun(değer girdikten sonra entere basınca döngü devam edecek

teşekkürler

 

[Orion1]

bir for next döngüsü yaptım


hangi kodu yazmam gerekiyorki döngü dursun(değer girdikten sonra entere basınca döngü devam edecek

teşekkürler

döngünün durması için

msgbox "Döngü durdu"

 

[nesat]

yine olmadı

msgbox eklediğimde
a1
a2
a3
a4

değer giremiyorum
bekleme işini görüyor fakat

Private Sub CommandButton1_Click()
For a = 1 To 100
MsgBox ("enter")
Range("a1").Activate
MsgBox ("enter")
Range("a2").Activate
MsgBox ("enter")
Range("a3").Activate
MsgBox ("enter")
Range("a4").Activate
Cells(a, 5) = Range("a1")
Cells(a, 6) = Range("a2")
Cells(a, 7) = Range("a3")
Cells(a, 8) = Range("a4")
Range("a1") = ""
Range("a2") = ""
Range("a3") = ""
Range("a4") = ""
Next a
End Sub

 

[Orion1]

Yazdığınız kodlar işlevsel değil zaten.
A1 B1 C1 D1 deki verileri E1 F1 G1 ve H1 hücrelerine giriyor.
Ondan sonra E2:H100 ralığınada "" giriliyor.
A1 ve diğerhücreleri activate yapmanız bir şey sağlamıyor.Gereksiz kodlar.Onları silsenizde olur.

 

[Mahmut Kök]

Örnek dosya ekledim, bakabilirsiniz.

 

[nesat]

Mesleki teşekkürler

tam istediğim gibi
sağol