verileri butonla yan sayfaya aktarmak...

[astrae]

herkese merhaba arkadaşlar... örnek teki dosyada "başlangıç sayfasındaki x başlıklı sütunda oluşacak verileri "aktar" butonuyla "sonuç" sayfasındaki d sütunundan başlayarak aktarmak istiyorum fakat baŞAramadım. istediğim tam olarak şöyle ; butona basınca aktarsın, ertesi defa girişte tekrar değişecek verileri butona basınca bir yan sütuna yine aktarsın... yardımcı olursanız sevinirim...teşekkürler...

 

[Mustafa MUTLU]

Düğmeye şu kodları ekleyiniz..

Sub Aktar()
Dim MSTF, MTL, MM
MM = 2
For MTL = 4 To 17
If Sheets("B. SONUÇ").Cells(2, MTL) = "" Then
For MSTF = 4 To 9
Sheets("B. SONUÇ").Cells(MM, MTL) = Sheets("BAŞLANGIÇ").Cells(MSTF, "J")
MM = MM + 1
Next
End If
Next
MsgBox "Veri Aktarımı Tamamlanmıştır..", vbExclamation, "Mustafa MUTLU 0 533 740 45 49"
End Sub

 

[astrae]

mustafa bey; çok teşekkür ederim.. çok yardımcı oldunuz... fakat küçük bir sorun kalmış sanırım.. aktarıyor fakat bir defada 20 civarı sütuna aktarıyor. çözmeye çalıştım, b,r de siz bakarsanız sevinirim...

 

[apocalyt]

birde şu kodu denermisiniz..kolay gelsin..

Sub deneme()
Application.ScreenUpdating = False
For x = 4 To 17
If Sheets(2).Cells(2, x) = "" Then
For y = 2 To 7

Sheets(2).Cells(y, x) = Sheets(1).Cells(y + 2, "j")
Next y
MsgBox "işlem tamam", vbDefaultButton1
Exit Sub
End If
Next x
Application.ScreenUpdating = True

MsgBox "Sütün tamamıyla dolu!", vbDefaultButton1

End Sub

 

[apocalyt]

üstteki mesajda tekrardan düzenleme yaptım..kolay gelsin..

 

[astrae]

bu kez hiç kopyalamadı....

 

[Mustafa MUTLU]

Exit Sub la kodu tamamla demem gerekirken unutmuşum.
Kodu düzelttim.
Denermisiniz.

Sub Aktar()
Dim MSTF, MTL, MM
MM = 2
For MTL = 4 To 17
If Sheets("B. SONUÇ").Cells(2, MTL) = "" Then
For MSTF = 4 To 9
Sheets("B. SONUÇ").Cells(MM, MTL) = Sheets("BAŞLANGIÇ").Cells(MSTF, "J")
MM = MM + 1
Next
MsgBox "Veri Aktarımı Tamamlanmıştır..", vbExclamation, "Mustafa MUTLU 0 533 740 45 49"
[COLOR="Red"]Exit Sub[/COLOR]
End If

Next

End Sub

 

[astrae]

Saolun çok

 

[Mustafa MUTLU]

Saolun çok

Rica ederim..
İşine Yaradı ise ne güzel..