sipariş fişine buton eklemek

[vknyalcin]

merhaba yazma kaydetme ve silme komutu vermek istiyorum butonlarla yardımcı olursanız sevinirim ekde neler yapmak istediğimi belirtim

 

[Necdet]

Merhaba,
2. isteğiniz dışındakileri yapmaya çalıştım.

Sub SatisAktar()
Dim Sat     As Long
Dim i       As Integer
Dim sf      As Worksheet
Dim ss      As Worksheet
Set sf = Sheets("SİPARİŞ FİŞİ")
Set ss = Sheets("SATIŞLAR")
Sat = ss.[A65536].End(3).Row + 1
i = sf.[K65536].End(3).Row
ss.Cells(Sat, "A") = sf.Range("K4")
ss.Cells(Sat, "B") = sf.Range("C1")
ss.Cells(Sat, "C") = sf.Range("K" & i)
MsgBox Sat & ". Satıra Bilgiler Aktarılmıştır"
End Sub

Sub SayfaYazdir()
    'Sheets("SİPARİŞ FİŞİ").PrintOut
    Sheets("SİPARİŞ FİŞİ").PrintPreview
End Sub

Sub SayfaSil()
    Dim i As Integer
    Dim e As String
    e = MsgBox("Sayfa Silinecek, Emin Misiniz?", vbYesNo, "[URL="http://www.excel.web.tr/"]www.excel.web.tr[/URL] 26 Haziran 2010 Cumartesi")
    If e = vbYes Then
        With Sheets("SİPARİŞ FİŞİ")
            i = [K65536].End(3).Row - 3
            .Range("C1:F4").ClearContents
            .Range("B8:C" & i).ClearContents
            .Range("C" & i + 1 & ":H" & i + 1).ClearContents
            .Range("A" & i + 2 & ":H" & i + 3).ClearContents
            .Range("H8:H" & i).ClearContents
        End With
    Else
        MsgBox "Silmekten Vazgeçtiniz...."
    End If
End Sub

 

[vknyalcin]

Eyvallah allah rağzı olsun abcim....

 

[LEOPAR]

Kaydetme butonu yapamıyormuyuz peki