- Katılım
- 14 Şubat 2007
- Mesajlar
- 55
- Excel Vers. ve Dili
- Excel 2002
Sub BBBBB()
Dim cevap As Integer
cevap = MsgBox("Aktarmak İstiyormusunuz", vbYesNo, "Çıkış")
If cevap = vbYes Then
Dim i As Integer
For i = 1 To 67
If Cells(i, 1) = Sheets("Sayfa2").Cells(1, 3) Then
Range("B3").Select
Selection.Copy
Sheets("Sayfa2").Select
Range("D2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End If
Next i
Else
Cancel = True
End If
End Sub
Sayfa 1 dekini kopyala sayfa2 deki ilk boş satıra yaz nasıl diyebilirim arkadaşlar.
Dim cevap As Integer
cevap = MsgBox("Aktarmak İstiyormusunuz", vbYesNo, "Çıkış")
If cevap = vbYes Then
Dim i As Integer
For i = 1 To 67
If Cells(i, 1) = Sheets("Sayfa2").Cells(1, 3) Then
Range("B3").Select
Selection.Copy
Sheets("Sayfa2").Select
Range("D2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End If
Next i
Else
Cancel = True
End If
End Sub
Sayfa 1 dekini kopyala sayfa2 deki ilk boş satıra yaz nasıl diyebilirim arkadaşlar.