userform çalışması için yardım

[baskanxls]

:yardim: Userform ve kod uygulamalarına hakim olamadığım için umarım değerli ustalarım yardımcı olabilirler.

Ekteki b sayfasındaki tabloya otomatik form aç butonu ile kendi çapımda hazırlayabildiğim (muhtemel yanlışlarla dolu,örn:soru cevaplarına eklediğim optbuttonlardan tüm formda sadece bir tane seçilebiliniyor).

Amacım açıklamalı dosyada olduğu gibi forma girilen değerlerin tabloda ilgili alanlara aktarılması,form üzerinde cevaplanmayan alanlar için uyarı vermesi.

Bu başımı ağrıtan dertten beni kurtaracak üstadlarıma şimdiden teşekkür ederim.

 

[ocamsul]

:yardim: Userform ve kod uygulamalarına hakim olamadığım için umarım değerli ustalarım yardımcı olabilirler.
Ekteki b sayfasındaki tabloya otomatik form aç butonu ile kendi çapımda hazırlayabildiğim (muhtemel yanlışlarla dolu,örn:soru cevaplarına eklediğim optbuttonlardan tüm formda sadece bir tane seçilebiliniyor).
Amacım açıklamalı dosyada olduğu gibi forma girilen değerlerin tabloda ilgili alanlara aktarılması,form üzerinde cevaplanmayan alanlar için uyarı vermesi.
Bu başımı ağrıtan dertten beni kurtaracak üstadlarıma şimdiden teşekkür ederim.

SN: baskanxls, konuya farklı bir yol ekte gönderdiğim DENEME de olduğu ComboBoxlar ile çözmeyi deneyin derim. kriterlere göre puanlamayıda EĞER fonksiyonu ile yapabilirsiniz. Bu dahada geliştirilebilir tabi.

 

[baskanxls]

Sn ocamsul ilginiz için çok teşekkür ederim.Ellerinize sağlık fakat
Form sayfasına girilen bilgiler çalışma sayfasındaki ilgili hücerelere atmıyor.
Dosya içinde de herhangi bir modülde bulunmuyor.

Üstadlarımdan yardım bekliyorum.

 

[ocamsul]

Sn ocamsul ilginiz için çok teşekkür ederim.Ellerinize sağlık fakat
Form sayfasına girilen bilgiler çalışma sayfasındaki ilgili hücerelere atmıyor.

SN: baskanxls, ekli DENEME2 sanırım istediğiniz gibi oldu. İnceleyiniz.
(Formül kullanılan alanlara dikkat ediniz.)
Evet, Hayır vb. Kriterler girildiğinde yanda belirlenmiş rakamsal değerler puanlama olarak eş değeri şeklinde verilmektedir.

 

[baskanxls]

Sn ocamsul gerçekten çok teşekkür ederim.
Şunu yapabilme imkanımız var mıdır acaba.Formdan hücrelere aktarılan veriler bir data tablosu olucağından bir form açılıp veriler girildikten sonra tekrar yeni form açıp veri girdiğimizde bir sonraki satıra işlenmesini sağlamam gerekli.

Ayrıca değerlendirme userformu içinde boş alan olduğunda kaydet butonuna bastığımızda hata vermesi ve ilgili alanın boş olduğunu belirtmesini sağlıyacak bir makro var mıdır?

Bu konudaki ustalığınıza hayran kaldığımı belirtmek isterim.ellerinize sağlık tekrar.Saygılarımla;-)

 

[ocamsul]

Şunu yapabilme imkanımız var mıdır acaba.Formdan hücrelere aktarılan veriler bir data tablosu olucağından bir form açılıp veriler girildikten sonra tekrar yeni form açıp veri girdiğimizde bir sonraki satıra işlenmesini sağlamam gerekli.
Ayrıca değerlendirme userformu içinde boş alan olduğunda kaydet butonuna bastığımızda hata vermesi ve ilgili alanın boş olduğunu belirtmesini sağlıyacak bir makro var mıdır?

SN: baskanxls, ekli DENEMÊ3 gibi bir şeymi acaba? inceleyiniz.

 

[altanson]

Üstteki kodu aşağıdaki şekilde kısalttım

Private Sub CommandButton1_Click()
Sheets("sayfa1").Select
Range("a2").Select
ActiveCell.Offset(1, 0).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
If ActiveCell.Offset(0, 1).Text = TextBox1.Text Then
MsgBox "Girilen Kayýt Mevcut...!!!", vbCritical, "Uyarý!"
Exit Sub
End If
Loop
If Range("A3").Value = "" Then
Range("A3").Value = 1
Else
ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 1
End If
ActiveCell.Offset(0, 1).Value = TextBox1.Value
End Sub

böylece sadece b2 hücresinden başlayarak aşağıya doğru yeni verileri giriyor.

Fakat a sütununa sıra numaralarını girmemesini nasıl sağlarız.

 

[abdi]

If Range("A3").Value = "" Then
Range("A3").Value = 1
Else
ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 1
End If

bloğunda yazılı olan kodları çıkarınız.

 

[altanson]

If Range("A3").Value = "" Then
Range("A3").Value = 1
Else
ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 1
End If

bloğunda yazılı olan kodları çıkarınız.

yukarıdaki bölümü çıkarınca sürekli aynı hücreye veri giriyor. ben yeni veri girdikçe aşağıya doğru kaymasını istiyorum. nasıl yapabilirim?

 

[ocamsul]

SN: altanson eğer TextBoxlar ile alt alta veri girişi yapmak istiyorsanız form üzerinde 2 adet Textbox ve bir buton olduğu varsayılarak hazırlanan bu kodu kullanınız.

Private Sub CommandButton1_Click()
    For X = 1 To 2
    If Controls("TextBox" & X).Value = Empty Then
    MsgBox ("Kayıt işlemi için gerekli tüm alanlara veri girmelisiniz." _
    & Chr(10) & "Lütfen boş bıraktığınız alanları doldurunuz."), vbExclamation, "Uyarı!"
    Controls("TextBox" & X).SetFocus
    Exit Sub
    End If
    Next
    Satır = Sheets("Sayfa1").[B65536].End(3).Row + 1
    For X = 1 To 2
    Cells(Satır, X) = Controls("TextBox" & X)
    Next
    MsgBox "Kayıt işlemi tamamlanmıştır.", vbInformation, "Mesaj"
End Sub

 

[altanson]

kodlardan gerçekten anlamıyorum, düzeltmeye çalıştım ama değiştirmemem gereken bir şey değiştirdim sanırım.

sadece bir textbox olduğunu varsayarsak nasıl bir kod kullanmalıyız ve verilerin başlayacağı hücreyi kod üzerinde nasıl değiştirebiliriz?

 

[bono]

OCAMSUL ilgili dosyayı açtım ve bir iki değişiklik yapmak istedim ama vba kodlarında sanırım password var ben değiştiremedim. Yardım edermisin?

 

[altanson]

arkadaşlar yeni başlık açmak istemiyorum onun için bu başlıkta sorumu tekrar soruyorum;

userform da b1 (veya başka) bir hücreden başlayarak textbox a girilen her yeni veriyi commandbuton ile bir alt satıra girecek ve nasıl bir kod kullanabiliriz? bir de yazılan kodu kısaca açıklarsanız farklı dosyalarımıza uyarlayabiliriz.

 

[Fuat Şirin]

şu şekilde

Private Sub CommandButton1_Click()
On Error Resume Next
Dim i As Integer
For i = 1 To 32000 'burdaki 1hangi satırdan başlayacağını belirtir 1. satır  gibi
    If (Sayfa1.Cells(i, 2) = "") Then ' burdaki 2 sutunu belirtir b gibi sayfa1 de hangi sayfadaysa o
        Sayfa1.Cells(i, 2) = textbox1.Text
        MsgBox "BİLGİ EKLENDİ !...", vbOKOnly + vbInformation, "Bilgi Ekleme"
        Exit Sub
    End If
Next i
End Sub

kodları aynen yapıştırın
bir textbox birde commandbutton ekleyin
kodsayfasında yeşil olan yerler açıklamadır

 

[altanson]

Private Sub CommandButton1_Click()
On Error Resume Next
Dim i As Integer
For i = 1 To 32000 'burdaki 1hangi satırdan başlayacağını belirtir 1. satır  gibi
    If (Sayfa1.Cells(i, 2) = "") Then ' burdaki 2 sutunu belirtir b gibi sayfa1 de hangi sayfadaysa o
        Sayfa1.Cells(i, 2) = textbox1.Text
        MsgBox "BİLGİ EKLENDİ !...", vbOKOnly + vbInformation, "Bilgi Ekleme"
        Exit Sub
    End If
Next i
End Sub

kodları aynen yapıştırın
bir textbox birde commandbutton ekleyin
kodsayfasında yeşil olan yerler açıklamadır

çok teşekkürler elinize sağlık.

 

[Fuat Şirin]

Sayfa1.Cells(i, 2) = textbox1.Text
Sayfa1.Cells(i, 3) = textbox2.Text
Sayfa1.Cells(i, 4) = combobox1.Text

gibi çoğaltabilirsiniz

 

[altanson]

Sayfa1.Cells(i, 2) = textbox1.Text
Sayfa1.Cells(i, 3) = textbox2.Text
Sayfa1.Cells(i, 4) = combobox1.Text

gibi çoğaltabilirsiniz

size de teşekkür ederim