formdan forma sıralı şekilde aktarma

[kutlayozbilgin]

sevgili hocalarım ilk önce ramazanınız mübarek olsun benim sorunum sekreter veya herhangi bir gruptan sildiğim kişileri işten cıkanlar grupuna sıralı bir şekilde aktarması veya işten cıkanlarda sildiğimde onu otomatik olarak silmesi satır boş kalmiycak şekilde ve birde tarih aralığını gün olarak hesaplatmak istiyorum saygılarımla dosyam ektedir KULLANICI ADI NURAY ŞİFRE 9801 SAYGILARIMLA

 

[kutlayozbilgin]

sevgili arkadaşlar lütfen diğer sayfaya satırları nasıl atabilirim kodlarını verebilirmisiniz daha öncede belirtmiştim lütfen

 

[Korhan Ayhan]

Selamlar,

İki tarih arasındaki günü bulmak için aşağıdaki kodu denermisiniz.

Private Sub CommandButton1_Click()
    If TextBox1 <> "" And TextBox2 <> "" Then
    TextBox3 = Format(CDate(TextBox2) - CDate(TextBox1), "#,##0")
    End If
End Sub

 

[Korhan Ayhan]

Selamlar,

UserForm3 teki SİL butonunuza ait kodu aşağıdaki şekilde değiştirip denermisiniz.

Private Sub CommandButton3_Click() 'SİL
    If ListBox1.ListCount = 0 Then Exit Sub
    Cevap = MsgBox("Veriyi silmek istediğinize emin misiniz?", vbYesNo, "SİLME İŞLEMİ İÇİN ONAY")
    If Cevap = vbYes Then
    Set S1 = Sheets(ListBox1.List(ListBox1.ListIndex, 0))
    SATIR = ListBox1.List(ListBox1.ListIndex, 2)
    If S1.Name = "İŞTEN ÇIKANLAR" Then
    S1.Rows(SATIR).Delete
    SON = S1.Cells(65536, 2).End(xlUp).Row + 1
    For X = 4 To SON - 1
    S1.Cells(X, 1) = X - 3
    Next
    Else
    Set S2 = Sheets("İŞTEN ÇIKANLAR")
    SON = S2.[B65536].End(3).Row + 1
    S2.Range("B" & SON & ":G" & SON).Value = S1.Range("B" & SATIR & ":G" & SATIR).Value
    SON = S2.[B65536].End(3).Row + 1
    For X = 4 To SON - 1
    S2.Cells(X, 1) = X - 3
    Next
    S1.Rows(SATIR).Delete
    SON = S1.Cells(65536, 2).End(xlUp).Row
    For X = 3 To SON
    S1.Cells(X, 1) = X - 2
    Next
    For Each Ctrl In Me.Controls
    If TypeName(Ctrl) = "TextBox" Then Ctrl.Value = Empty
    Next
    End If
    ListBox1.Clear
    ComboBox1.Value = ""
    Set S1 = Nothing
    Set S2 = Nothing
    End If
End Sub

 

[kutlayozbilgin]

Abİ Çok Supersİn Sagol Ellerİne Saglik TeŞk. Ederİm