silme ve aktarma problemi

[ramazan uçar]

arkadaşlar merhaba,

benim sorunum user form üzerine yerleştirdiğim sil ve aktar butonlarına koyacağım kodla ilgili.tam olarak yapmak istediğim şu:
1-aktar butonuna bastığımda ekrana çağırdığım bilgilerin sayfa1 den silinerek arşiv sayfasına gitmesi.ama a sütunundan bn sütununa kadar silinmesi ve aynı şekilde aktarılması gerekiyor.arşiv sayfasının düzenide aynen sayfa 1 in düzeni şeklinde olmalı.ve aktardığım veriler altalta sıralanmalı.

2-sil butonuna bastığımda ise aktarma yapmadan sadece sayfa 1 deki bilgileri silmeli.yine ondada asütunu ile bn sütunu arasındaki satırlar silinmeli

yardımlarınızı bekliyorum.şimdiden teşekkürler.

 

[Mahmut Kök]

modüle kaydetip, aktar / sil düğmelerine aşağıdaki makroları tanımlayın.

Sub aktarvesil()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("ARŞİV")
a = UserForm1.ComboBox1
For h = 1 To 65000
If Cells(h, "bp") = Empty and Cells(h, "bq") = Empty and Cells(h, "br") = Empty Then Exit Sub
If Cells(h, 2) = a Then
Set alan1 = s1.Range(s1.Cells(h, "a"), s1.Cells(h, "bn"))
GoTo 2
Else
End If
Next h
GoTo 3
2

For k = 2 To 65000
If s2.Cells(k, 2) = Empty Then
Set alan2 = s2.Range(s2.Cells(k, "a"), s2.Cells(k, "bn"))
alan2.Value = alan1.Value
alan1.Value = Empty
GoTo 4
Else
End If
Next k

GoTo 4
3 MsgBox "bulunamadı"
4
End Sub

Sub sadecesil()
Set s1 = Sheets("Sayfa1")

a = UserForm1.ComboBox1
For h = 1 To 65000

If Cells(h, 2) = a Then
Set alan1 = s1.Range(s1.Cells(h, "a"), s1.Cells(h, "bn"))
alan1.Value = Empty
Exit Sub
Else
End If
Next
MsgBox "ARADIĞINIZ KAYIT BULUNAMADI"


End Sub

 

[ramazan uçar]

sayın mesleki kodlar için teşekkürler.ama sanırım yanlış yaptım.kodları ilgili butonlara yazdığımda hiçbir şey olmuyor.ben tam olarak ne yapmam gerektiğini yani kodları nereye yazacağımı ve bu yazma işleminden başka ne yapacağımı anlayamadım sanırım.

 

[Mahmut Kök]

ekle (insert) menüsünden modül açın, yukarıdaki kodları olduğu gibi oraya kopyalayın.

Sonra da, userformunuzdaki sil düğmesinin kod bölümüne
sadecesil

aktar düğmesinin kod bölümüne de
aktarvesil


yazmanız yeterli...

 

[ramazan uçar]

hocam harika oldu ellerinize sağlık tamda istediğim gibi