Userform ile sutuna göre kayıt yardım...

[ejderemrah]

Kolay gelsin arkadaşlar.
Ben Userform ile veri kaydı yapmak istiyorum formda yaptığım armalarla baya uğraştım ama kodları bir türlü çözemedim.
Yapmak istediğim Kişinin adı seçildikten sonra Tutar, Tarih, Plaka Verilerini Grekli sütunların son hücrelerine yazması Userfom ekledim kendimce ama kayıt yapaacak kodları yazamıyorum.
birde İsim listesini istediğim zaman güncellemek istiyorum sayı artabilir.
Yardımlarınızı bekliyorum.

 

[Murat OSMA]

Aradaki sarı renkli satırlar ne için var ?

 

[ejderemrah]

Önceden İlk Satırı Sabitlemeyi bilmiyordum o sebepten kopyala yapıştır yapmıştım isim satırlarını silinebilecek bir satır önemi yok

 

[Murat OSMA]

O hâlde aradaki sarı satırı silin ve UserForm'a şu kodları yazıp deneyiniz..

Private Sub UserForm_Initialize()
    ComboBox1.RowSource = "Sayfa2!A1:A29"
End Sub

Private Sub ComboBox1_Change()
    Dim i As Integer
    For i = 1 To Cells(1, Columns.Count).End(1).Column
        If ComboBox1.Text = Cells(1, i) Then
            Cells(1, i).Select
        End If
    Next i
    i = Empty
End Sub

Private Sub EKLE_Click()
    Dim son As Integer
    son = Selection.Columns.End(4).Row + 1
    Cells(son, Selection.Column).Value = TextBox1.Text
    Cells(son, Selection.Column + 1).Value = TextBox2.Text
    Cells(son, Selection.Column + 2).Value = TextBox3.Text
    son = Empty
End Sub

BENZİN DOLDURANLAR sayfasında deneyin..

 

[ejderemrah]

Murat bey teşekkür ederim ilginize
Bir sorum daha olacak isim listesine nasıl ekleme yapabilirim. Yani Son sutuna 3 sutun daha eklediğim de isim listesinde nasıl gözükücek

 

[Murat OSMA]

3 sütun daha eklemekten kastınız 3 satır eklemek midir ?

 

[ejderemrah]

Yeni Eklenen İsimleri En Sağdaki Sutundan sonra CI Sütunundan Sonra Yeni Ekleyeceğim Kişi İçin Sutun Daha oluşturuyorum CJ CK CL Gibi Daha Sonra Bu 3 sutuna o kişinin tutar tarih ve plaka bilgilerini yazıyorum tam anlatabildim mi bilmiyorum .

 

[Murat OSMA]

İsimleri burada da göreceğiniz üzere Sayfa2'nin A1:A29 aralığındaki hücrelerden alıyor. Dolayısıyla da o satırdaki aralığa ne yazarsanız ComboBox'ta o aralıktaki veriler listelenir.

Private Sub UserForm_Initialize()
    ComboBox1.RowSource = "Sayfa2!A1:A29"
End Sub

Dilerseniz koddaki o satırı bu şekilde değiştirebilirsiniz;

ComboBox1.RowSource = "Sayfa2!A1:A" & Sheets("Sayfa2").Range("A65536").End(3).Row

Bu sayede listeye eklediğiniz her veriyi tekrar aralık belirtmeye gerek duymadan, ComboBox'ta A sütunundaki alt alta yazılı tüm hücrelerdeki verileri listeleyebilirsiniz.

 

[ejderemrah]

Murat Bey ilginiz ve yardımlarınız için çok teşekkür ederim....

 

[Murat OSMA]

Rica ederim, iyi günler.

 

[ejderemrah]

Rica ederim, iyi günler.

Bir sorunun daha var da yardımlarınızı bekliyorum

Private Sub EKLE_Click()
Dim son As Integer
a = TextBox2.Text & "." & TextBox4.Text
son = Selection.Columns.End(4).Row + 1
Cells(son, Selection.Column).Value = TextBox1.Text
Cells(son, Selection.Column + 1).Value = a
Cells(son, Selection.Column + 2).Value = TextBox3.Text
son = Empty
End Sub


Tarih için bir tane daha textbox oluşturdum amacım tarihi
TextBox2 =30
TextBox4 =11
doldurunca
(30.11) şeklinde girip 30.KASIM Şeklinde göremek ti
ama giriş yapınca 30,11 oluyo nasıl düzeltebilirim

bir de TAB tuşuna basınca sıra ile değil de karışık ilerliyor gibi bunu nasıl düzeltebilirim

 

[Murat OSMA]

Neyin peşindesiniz ?

Hiç uğraşmayın öyle, sadece bu satırın formatını ayarlamanız yeterli.

Cells(son, Selection.Column + 1).Value = Format(TextBox2.Text, "dd.mmm")

 

[ejderemrah]

Neyin peşindesiniz ?

Hiç uğraşmayın öyle, sadece bu satırın formatını ayarlamanız yeterli.

Cells(son, Selection.Column + 1).Value = Format(TextBox2.Text, "dd.mmm")

Gerçekten çok teşekkür ederim tam 1 saattir uğraşıyordum.

 

[Murat OSMA]

Öğrenene kadar olur böyle şeyler..

Yazdığım kodların ne anlama geldiklerini az çok anlamışsınızdır.
Yapmak istediğinizi biliyorsunuz zaten, yazdığım kodlarla yapılanları kafanızda örtüştürmeye çalışın mantığını daha iyi kavrayacaksınız...


İyi günler.

 

[oguzalkaya]

Süzerek belli tarihteki verileri toplamak

İyi çalışmalar,
Ben macroda excel tablosunda aynı günde bulunan müşterilerin kodlarını diğer bir sayfaya müşteri adı ve diğer gerekli bilgileri kod ile aktarmayı başaramadım. Bu konuda yardımınzı isteyecektim. Ekli dosya içindeki FHY kodlu olanları süzerek sadece DFlNr,ACType,Departure date, std, ToIata sütünü içindeki verileri diğer bir sayfada gün gün toparlamak istiyorum. Yardımcı olursanız sevinirim. Teşekkürler.