userform

[sinemomec]

userformda combobax veriyi girip kaydet butonuna çalıştırdığım zaman sayfa1 a hücresine ve sayfa2 b hücresine verileri her defasında bir alt satıra nasıl kaydedebilirm.iyi bayramlar

 

[AdemCan]

Örnek kod hazırladım. İyi bayramlar.

Private Sub CommandButton1_Click()
Dim s1 As Worksheet, s2 As Worksheet
Dim son1 As Long, son2 As Long

Set s1 = Sayfa1
Set s2 = Sayfa2

son1 = s1.Cells(Rows.Count, 1).End(3).Row + 1
son2 = s1.Cells(Rows.Count, 2).End(3).Row + 1

s1.Cells(son1, 1) = ComboBox1.Value
s2.Cells(son2, 2) = ComboBox1.Value

End Sub

 

[sinemomec]

beim kodum bu şekilde ancak sadece gidenevrak kısmına verileri gönderiyor ben artı olarak gidenkurum sayfasında a hücresine sadece Cbgönderilenkurum.Value değerininde kaydetmesini istiyorum

Private Sub Cmdkaydet_Click()
If Cbgönderilenkurum.Text = "" Then
MsgBox "GÖNDERİLEN KURUM VE KURULUŞ BOŞ OLAMAZ.", vbInformation, "BİLDİRİ"
Exit Sub
ElseIf Tbtarih.Text = "" Then
MsgBox "TARİH BOŞ OLAMAZ.", vbInformation, "BİLDİRİ"
Exit Sub
ElseIf tbek.Text = "" Then
MsgBox "EK BOŞ OLAMAZ.", vbInformation, "BİLDİRİ"
Exit Sub
ElseIf Cbdesimaldosya.Text = "" Then
MsgBox "DESİMAL DOSYA OLAMAZ.", vbInformation, "BİLDİRİ"
Exit Sub
ElseIf Cbkonu.Text = "" Then
MsgBox "KONU DOSYA OLAMAZ.", vbInformation, "BİLDİRİ"
Exit Sub
ElseIf Cbhavaleedenmemur.Text = "" Then
MsgBox "HAVALE EDEN MEMUR BOŞ OLAMAZ.", vbInformation, "BİLDİRİ"
Exit Sub
End If
sonsatır = WorksheetFunction.CountA(Worksheets("GİDENEVRAK").Range("A:A")) + 1
If sonsatır = 2 Then
Worksheets("GİDENEVRAK").Cells(sonsatır, 1) = 1
Else
Worksheets("GİDENEVRAK").Cells(sonsatır, 1) = Worksheets("GİDENEVRAK").Cells(sonsatır - 1, 1) + 1
End If
Worksheets("GİDENEVRAK").Cells(sonsatır, 2) = Cbgönderilenkurum.Value
Worksheets("GİDENEVRAK").Cells(sonsatır, 3) = Tbtarih.Value
Worksheets("GİDENEVRAK").Cells(sonsatır, 4) = tbek.Value
Worksheets("GİDENEVRAK").Cells(sonsatır, 5) = Cbdesimaldosya.Value
Worksheets("GİDENEVRAK").Cells(sonsatır, 6) = Cbkonu.Value
Worksheets("GİDENEVRAK").Cells(sonsatır, 7) = Cbhavaleedenmemur.Value
MsgBox "VERİ KAYDEDİLDİ.", vbInformation, "BİLDİRİ"
Cbgönderilenkurum.Value = ""
Tbtarih.Value = ""
tbek.Value = ""
Cbdesimaldosya.Value = ""
Cbkonu.Value = ""
Cbhavaleedenmemur.Value = ""
listele
End Sub

 

[AdemCan]

Bu satırlarda ki GİDENKURUM sayfa ismini kontrol ediniz.

sonsatır2 = WorksheetFunction.CountA(Worksheets("GİDENKURUM").Range("A:A")) + 1
Worksheets("GİDENKURUM").Cells(sonsatır2, 1) = Cbgönderilenkurum.Value

Private Sub Cmdkaydet_Click()
If Cbgönderilenkurum.Text = "" Then
    MsgBox "GÖNDERİLEN KURUM VE KURULUŞ BOŞ OLAMAZ.", vbInformation, "BİLDİRİ"
    Exit Sub
ElseIf Tbtarih.Text = "" Then
    MsgBox "TARİH BOŞ OLAMAZ.", vbInformation, "BİLDİRİ"
    Exit Sub
ElseIf tbek.Text = "" Then
    MsgBox "EK BOŞ OLAMAZ.", vbInformation, "BİLDİRİ"
    Exit Sub
ElseIf Cbdesimaldosya.Text = "" Then
    MsgBox "DESİMAL DOSYA OLAMAZ.", vbInformation, "BİLDİRİ"
    Exit Sub
ElseIf Cbkonu.Text = "" Then
    MsgBox "KONU DOSYA OLAMAZ.", vbInformation, "BİLDİRİ"
    Exit Sub
ElseIf Cbhavaleedenmemur.Text = "" Then
    MsgBox "HAVALE EDEN MEMUR BOŞ OLAMAZ.", vbInformation, "BİLDİRİ"
    Exit Sub
End If

sonsatır = WorksheetFunction.CountA(Worksheets("GİDENEVRAK").Range("A:A")) + 1
sonsatır2 = WorksheetFunction.CountA(Worksheets("GİDENKURUM").Range("A:A")) + 1 ' Giden Kurum A sütununa göre son dolu satır

If sonsatır = 2 Then
    Worksheets("GİDENEVRAK").Cells(sonsatır, 1) = 1
Else
    Worksheets("GİDENEVRAK").Cells(sonsatır, 1) = Worksheets("GİDENEVRAK").Cells(sonsatır - 1, 1) + 1
End If

Worksheets("GİDENEVRAK").Cells(sonsatır, 2) = Cbgönderilenkurum.Value
Worksheets("GİDENEVRAK").Cells(sonsatır, 3) = Tbtarih.Value
Worksheets("GİDENEVRAK").Cells(sonsatır, 4) = tbek.Value
Worksheets("GİDENEVRAK").Cells(sonsatır, 5) = Cbdesimaldosya.Value
Worksheets("GİDENEVRAK").Cells(sonsatır, 6) = Cbkonu.Value
Worksheets("GİDENEVRAK").Cells(sonsatır, 7) = Cbhavaleedenmemur.Value
Worksheets("GİDENKURUM").Cells(sonsatır2, 1) = Cbgönderilenkurum.Value ' Giden Kurum A sütununa kayıt yapar

MsgBox "VERİ KAYDEDİLDİ.", vbInformation, "BİLDİRİ"
Cbgönderilenkurum.Value = ""
Tbtarih.Value = ""
tbek.Value = ""
Cbdesimaldosya.Value = ""
Cbkonu.Value = ""
Cbhavaleedenmemur.Value = ""
listele
End Sub

 

[sinemomec]

teşekkür ederim

 

[AdemCan]

Rica ederim.

 

[sinemomec]

peki sil işleminde nasıl olmalı

Private Sub CmdSil_Click()
sor = MsgBox("SEÇİLEN VERİ SİLİNECEK.", vbYesNoCancel + vbInformation, "BİLDİRİ")
If sor = vbNo Then Exit Sub
If sor = vbCancel Then Exit Sub
For a = 0 To Lstgidenevrak.ListCount - 1
If Lstgidenevrak.Selected(a) Then
ara = Lstgidenevrak.List(a, 0)
Sheets("GİDENEVRAK").Range("A:A").Find(what:=ara, lookat:=xlWhole).EntireRow.Delete
End If
Next
End Sub

 

[AdemCan]

Farklı konulardaki sorularınızı, yeni konu açarak ve dosya paylaşarak sormanız daha uygun olacaktır.

 

[sinemomec]

tamamdır.