- Katılım
- 4 Mayıs 2007
- Mesajlar
- 234
- Excel Vers. ve Dili
- office 2007 64 bit
office 2010 64 bit
Sayın hocalarım ve arkasaşlarım aşşağıdaki makroda silinen satırları kopyalayıp RAPOR sayfasındaki B Stünün en son dolu olan satırına eklenmesini ve sonra aşşağıdaki silme işlemini yapması gerekiyor..
Private Sub KAPAT_Click()
cevap = MsgBox("Masa Kapatılacak ... Emin misiniz ?", vbYesNo, "KAPAT ONAYI")
If cevap = vbYes Then
Unload Me
Dim C As Range, sat As Long
Set C = [A:A].Find("y")
If Not C Is Nothing Then
sat = C.Row
End If
If sat = 11 Then Exit Sub
Rows("11:" & sat - 1).Delete Shift:=xlUp
End If
End Sub
Private Sub KAPAT_Click()
cevap = MsgBox("Masa Kapatılacak ... Emin misiniz ?", vbYesNo, "KAPAT ONAYI")
If cevap = vbYes Then
Unload Me
Dim C As Range, sat As Long
Set C = [A:A].Find("y")
If Not C Is Nothing Then
sat = C.Row
End If
If sat = 11 Then Exit Sub
Rows("11:" & sat - 1).Delete Shift:=xlUp
End If
End Sub