silinen verilerin aktarılması

[agreee]

sayfa 1deki verileri silince verileri çıkış sayfasına atmak isityorum.Ama Sayfa1 deki 1sütündan 120 sütuna kadar
Tşekkürler

 

[agreee]

kimse yardım etmiyormu?

liütfen yardımedin

sayfa 1deki verileri silince verileri çıkış sayfasına atmak isityorum.Ama Sayfa1 deki 1sütündan 120 sütuna kadar
Tşekkürler

 

[Korhan Ayhan]

Selamlar,

Eğer iki sayfada sütunlar eşleşiyorsa formunuzda silme işlemini yapan butonun altına aşağıdaki kodu ekleyin. Tabi döngü ile yapmış olduğunuz kodu silerek ekleyin.

Sheets("Sayfa1").Range("A" & i + 1 & ":DP" & i + 1).Copy Sheets("ÇIKIŞ").Range("A" & fd)
Sheets("Sayfa1").Rows(i + 1).Delete

Sileceğiniz kodlar;

For f = 1 To 27
Sheets("ÇIKIŞ").Cells(fd, f).Value = Controls("textbox" & f).Text
Next
For f = 31 To 38
Sheets("ÇIKIŞ").Cells(fd, f - 3).Value = Controls("textbox" & f).Text
Next
For f = 40 To 53
Sheets("ÇIKIŞ").Cells(fd, f - 4).Value = Controls("textbox" & f).Text
Next
For f = 55 To 56
Sheets("ÇIKIŞ").Cells(fd, f - 5).Value = Controls("textbox" & f).Text
Next
sayfa1.Range("A" & i + 1 & ":" & "DA" & i + 1).Delete

 

[agreee]

Tşekkürler

çoook teşekkür ederim.
Saygılarımla,