• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

B

baskanxls

Katılım
4 Haziran 2007
Mesajlar
8
Excel Vers. ve Dili
2003 Eng.
: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.
 
baskanxls' Alıntı:
: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.
Genişletmek için tıkla ...

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.
 
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.
 
baskanxls' Alıntı:
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.
Genişletmek için tıkla ...

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.
 
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;-)
 
baskanxls' Alıntı:
Ş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?
Genişletmek için tıkla ...

SN: baskanxls, ekli DENEMÊ3 gibi bir şeymi acaba? inceleyiniz.
 
Üstteki kodu aşağıdaki şekilde kısalttım

Kod: 
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.
 
Kod: 
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.
 
abdi' Alıntı:
Kod: 
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.
Genişletmek için tıkla ...

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?
 
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.

Kod: 
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
 
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?
 
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?
 
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.
 
şu şekilde

HTML: 
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
 
parlemenn' Alıntı:
HTML: 
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
Genişletmek için tıkla ...

çok teşekkürler elinize sağlık.
 
Sayfa1.Cells(i, 2) = textbox1.Text
Sayfa1.Cells(i, 3) = textbox2.Text
Sayfa1.Cells(i, 4) = combobox1.Text

gibi çoğaltabilirsiniz
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst