- Katılım
- 20 Ekim 2005
- Mesajlar
- 476
aşağıdaki kod içinde bulunan satırları karşılarına açıklayacak arkadaşlara şimdiden teşekkür ederim.
kod :
Private Sub CommandButton1_Click()
If ComboBox1.ListIndex < 0 Then Exit Sub
For i = 2 To Worksheets("Sayfa34").Cells(65536, 2).End(xlUp).Row
For k = 2 To Worksheets("Sayfa31").Cells(65536, 2).End(xlUp).Row
If Worksheets("Sayfa34").Cells(i, 2) = Worksheets("Sayfa31").Cells(k, 2) Then
b = 3 * (ComboBox1.ListIndex + 1)
c = 2
For a = b To b + 2
c = c + 1
Worksheets("Sayfa31").Cells(k, a) = Worksheets("Sayfa34").Cells(i, c) Next a
GoTo SONRAKİ
End If
Next k
SONRAKİ:
Next i
MsgBox "Aktarma Tamamlandı", vbOKOnly
End Sub
kod :
Private Sub CommandButton1_Click()
If ComboBox1.ListIndex < 0 Then Exit Sub
For i = 2 To Worksheets("Sayfa34").Cells(65536, 2).End(xlUp).Row
For k = 2 To Worksheets("Sayfa31").Cells(65536, 2).End(xlUp).Row
If Worksheets("Sayfa34").Cells(i, 2) = Worksheets("Sayfa31").Cells(k, 2) Then
b = 3 * (ComboBox1.ListIndex + 1)
c = 2
For a = b To b + 2
c = c + 1
Worksheets("Sayfa31").Cells(k, a) = Worksheets("Sayfa34").Cells(i, c) Next a
GoTo SONRAKİ
End If
Next k
SONRAKİ:
Next i
MsgBox "Aktarma Tamamlandı", vbOKOnly
End Sub