for döngüsünde iki değişken nasıl tanımlanır

[Açılın ben mühendisim]

İyi akşamlar arkadaşlar

Sub Düğme1_Tıklat()
For i = 2 To 7
If Sayfa1.Cells(i, 4) = Sayfa1.Cells(1, 6) Then
'sayfa2.cells(1,i)="CARİ"
Sayfa2.Cells(i, 1) = Sayfa1.Cells(i, 1)
Sayfa2.Cells(i, 2) = Sayfa1.Cells(i, 2)
Sayfa2.Cells(i, 3) = Sayfa1.Cells(i, 3)
Sayfa2.Cells(i, 4) = Sayfa1.Cells(i, 4)
Sayfa2.Cells(i, 5) = Sayfa1.Cells(i, 5)
End If
Next



bu kodlar için Sayfa2.Cells(i, 1) ikinci kısımda bulunan sayıları da j olarak tanımlamak istiyorum.
nasıl yapabileceğim konusunda yardımcı olabilecek arkadaşlara şimdiden çok teşekkür ediyorum.

 

[vardar07]

Böyle bir şeymi olacak.

Sub Düğme1_Tıklat()
For i = 2 To 7
For j = 1 To 5
If Sayfa1.Cells(i, 4) = Sayfa1.Cells(1, 6) Then
'sayfa2.cells(1,i)="CARİ"
Sayfa2.Cells(i, j) = Sayfa1.Cells(i, j)
Sayfa2.Cells(i, j) = Sayfa1.Cells(i, j)
Sayfa2.Cells(i, j) = Sayfa1.Cells(i, j)
Sayfa2.Cells(i, j) = Sayfa1.Cells(i, j)
Sayfa2.Cells(i, j) = Sayfa1.Cells(i, j)
End If
Next
Next
End Sub

 

[Açılın ben mühendisim]

İstediğim tam olarak buydu.
Gerçekten çok teşekkür ederim.
İyi çalışmalar

 

[vardar07]

Rica ederim. Kolay gelsin.

 

[umutcanarikan]

arkadaşlar merhaba,
şöyle bir şey yapmak mümkün mü acaba?

'for a = 1 to10 and 20 to 40

şimdiden teşekkür ederim

 

[Korhan Ayhan]

Şöyle deneyebilirsiniz...

For a = 1 To 40
   If a < 11 Or a > 19 Then
      Rem Buraya yapmak istediğiniz işlem kodlarını yazınız...
   End If
Next

 

[umutcanarikan]

teşekkür ediyorum .