- Katılım
- 12 Ocak 2007
- Mesajlar
- 465
- Excel Vers. ve Dili
- 2003
Sn dostlar bu günlerde çok sorum oldu ancak kullandığımız formlardaki değişim nedeni ile zor durumda kaldım.
Private Sub FKÜ_Click()
Dim i, j, k
i = 6
j = 6
Do While Cells(i + 1, 7) <> ""
i = i + 1
Loop
Range("a" & 6 & ":G" & i).Copy
Do While Worksheets("FKÜ YILLIK").Cells(j, 7) <> ""
j = j + 1
Loop
Worksheets("FKÜ YILLIK").Cells(j, 1).PasteSpecial
Range("a" & 6 & ":G" & i).Select
k = MsgBox("AKTARMA TAMAMLANDI." + Chr(13) + "SEÇİLİ ALAN SİLİNSİN Mİ?", vbYesNo)
If k = vbYes Then
Range("a" & 6 & ":G" & i).ClearContents
Else
End If
End Sub
Daha önceki formda sizlerden almış olduğum bu kodla sayfa verilerini kolayca ana sayfama aktarabiliyordum.form değişince aktarılacak satır uzunluğu değişti.ben kodu uyarlamaya çalıştım ama olmadı.aktarmayı yapıyor ancak önceki verinin üstüne aktarıyor.ben se boş satıra aktarmasını istiyorum bi zahmet yardım edermisiniz.(yazmış olduğum kod önceki koddur.uyarlamaya çalıştığım dosyanın içindedir)
ve birde Dim i,j,k ile kastedilen bölümler ne anlama geliyor? saygılar
Private Sub FKÜ_Click()
Dim i, j, k
i = 6
j = 6
Do While Cells(i + 1, 7) <> ""
i = i + 1
Loop
Range("a" & 6 & ":G" & i).Copy
Do While Worksheets("FKÜ YILLIK").Cells(j, 7) <> ""
j = j + 1
Loop
Worksheets("FKÜ YILLIK").Cells(j, 1).PasteSpecial
Range("a" & 6 & ":G" & i).Select
k = MsgBox("AKTARMA TAMAMLANDI." + Chr(13) + "SEÇİLİ ALAN SİLİNSİN Mİ?", vbYesNo)
If k = vbYes Then
Range("a" & 6 & ":G" & i).ClearContents
Else
End If
End Sub
Daha önceki formda sizlerden almış olduğum bu kodla sayfa verilerini kolayca ana sayfama aktarabiliyordum.form değişince aktarılacak satır uzunluğu değişti.ben kodu uyarlamaya çalıştım ama olmadı.aktarmayı yapıyor ancak önceki verinin üstüne aktarıyor.ben se boş satıra aktarmasını istiyorum bi zahmet yardım edermisiniz.(yazmış olduğum kod önceki koddur.uyarlamaya çalıştığım dosyanın içindedir)
ve birde Dim i,j,k ile kastedilen bölümler ne anlama geliyor? saygılar