tam satır silme nasıl oluyor

[metropolfrm]

sayfa1deki bilgileri sayfa 2 ye aktarıyorum
sayfa 1de sıra hücresi boşsa aktarmamasını da sağladım
ancak aktarılmayan bilgilerin yeri boş kalıyor
bu satırı nasıl sildirebilirim

 

[meslan]

Merhaba.

Sub deneme()
Sheets("sayfa2").Range("A2:c" & [A65536].End(3).Row).ClearContents
x = 1
For i = 2 To Sheets("sayfa1").[A65536].End(3).Row
If Sayfa1.Cells(i, 1) <> "" Then x = x + 1
If Sayfa1.Cells(i, 1) <> "" Then
Sayfa2.Cells(x, 1) = Sayfa1.Cells(i, 1)
Sayfa2.Cells(x, 2) = Sayfa1.Cells(i, 2)
Sayfa2.Cells(x, 3) = Sayfa1.Cells(i, 3)
End If
Next i
Sayfa2.Activate
End Sub

 

[metropolfrm]

meslan &#231;ok te&#351;ekk&#252;r ederim istedi&#287;im gibi olmu&#351;
fakat zahmet olmazsa biraz a&#231;&#305;klar m&#305;s&#305;n bunlar&#305;n ne i&#351;e yarad&#305;&#287;&#305;n&#305;
ben makrolarla ilgilenmeye yeni ba&#351;lad&#305;m da. bi de bunda eklemeler yapmak i&#231;in neyin ne oldu&#287;unu bilmem laz&#305;m. mesela s&#305;ra numaralar&#305; sayfa 2de &#351;imdi atlaya atlaya gidecek. onlar&#305; yeni ba&#351;tan 1-2-3- &#351;eklinde s&#305;ralamam&#305;z gerek.
ilgin i&#231;in &#231;ok te&#351;ekk&#252;rler. yard&#305;m&#305;n &#231;ok i&#351;e yarayacak

 

[metropolfrm]

deneme yan&#305;lma yoluyla bu hale geldi ama yine de sat&#305;rlar&#305;n ne i&#351;e yarad&#305;&#287;&#305;n&#305; tam anlayamad&#305;m
Sub deneme()
Sheets("sayfa2").Range("A2:c" & [A65536].End(3).Row).ClearContents
x = 1
For i = 2 To Sheets("sayfa1").[A65536].End(3).Row
If Sayfa1.Cells(i, 1) <> "" Then x = x + 1
If Sayfa1.Cells(i, 1) <> "" Then
Sayfa2.Cells(x, 1) = Sayfa1.Cells(i, 1)
Sayfa2.Cells(x, 2) = Sayfa1.Cells(i, 2)
Sayfa2.Cells(x, 3) = Sayfa1.Cells(i, 3)
Sayfa2.Cells(x, 1) = x - 1
End If
Next i
Sayfa2.Activate
End Sub

 

[metropolfrm]

benim bu sorduğum şey konuyu anlamak içindi. asıl bunu farklı bir dosyaya uygulamalıyım. fakat yaptığınız makroyu ona uyduramadım.
o dosyayı göndersem yardımcı olur musunuz?
telafi diploma tarihi olmayan öğrencinin bilgilerini almayacak ve o satırı silecek sıra numarasını da düzenleyecek.

 

[meslan]

Sn.metropolfrm dosyanız ekte.

 

[metropolfrm]

ger&#231;ekten &#231;ok te&#351;ekk&#252;r ederim sayenizde hem biraz makro &#246;&#287;reniyorum hem de program kullan&#305;labilir bir hal al&#305;yor.
sizin meslek neydi?

 

[meslan]

Sn metropolfrm rica ederim bir &#351;ey de&#287;il. Te&#351;ekk&#252;rlerimiz Formdaki uzmanlar&#305;m&#305;za. &#199;&#252;nki onlar&#305;n sayesinde bir&#351;eyler &#246;&#287;reniyoruz. Sayg&#305;lar.