[Yardım]  Listbox da bulunan seçime göre kayıt ve otomatik sayı üretme

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Listbox da bulunan seçime göre kayıt ve otomatik sayı üretme

İleti#1)  Erkan Yılmaz » 06 Kas 2018 12:38

Merhaba Arkadaşlar.

Sizlerin yardımı ve emekleri ile yapmak istediğim programı bitirmeye çalışıyorum. Sizlere çok çok teşekkür ediyorum yardımlarınızı esirgemediğiniz için.

Şu anda benim için en önemli kısmı ve benim için oldukça zor siz sevgili üstadlar için kolaydır muhtemelen.

Userform1 asıl stok kayıt sayfamızı açtığımız zaman kategori kayıt bölümündeki herhangi bir verinin üzerine geldiğim zaman aşağıda ki Ana grup bölümüne yeni kayıt butonuna tıkladığım zaman yukarıda seçili olanın gelmesini ve ona göre de otomatik kod vermesini istiyorum.

Örnekleyecek olursam; Kategori bölümünde parfümün üzerinde seçim yaptım. Ana grupta Yeni kayıt butonuna bastığım zaman Ana grup kayıt ekranında ; Kategori Adı ve Kodu yukarıda ki seçime göre otomatik gelecek. Kod olarak ise her kategori adı için ayrı ayrı 01 den başlayıp kayıta göre otomatik kod vermesi gerekmektedir. Ve bunu ana grup excel dosyasına kayıt etmem gerekiyor.

Daha da açık bir şekilde ifade etmek gerekirse; Excel dosyasında bulunan ana grup 2 sayfasında ki gibi bir kodlama olması gerekiyor.

Userform1 de Kategori de Parfüm seçerek Ana grup kodunda yeni kayıt yapmak istedim.
Kategori Kodu Kategori Adı Kod Ana Grup Adı
1 PARFÜM 01 KADIN PARFÜM
1 PARFÜM 02 ERKEK PARFÜM
1 PARFÜM 03 SELECTIVE PARFÜM

Userform1 de Kategori de Makyaj seçerek Ana grup kodunda yeni kayıt yapmak istedim.

2 MAKYAJ 01 YÜZ MAKYAJI
2 MAKYAJ 02 GÖZ MAKYAJI
2 MAKYAJ 03 DUDAKLAR
2 MAKYAJ 04 TIRNAKLAR

Kendi göndermiş olduğum çalışmam üzerinden gidecek olursak, Stok Kayıt formunu açtık. Kategori bölümünden bir tane seçim yaptık. Mesela parfümü seçimi yaptık. Daha sonra aşağıda ki ana grup formuna yeni kayıt dediğimiz zaman açılan ana grup kayıt ekranında seçilen kategorinin kodu ve adı gelecek Ana grup kayıt kodu 1 parfüm kodu 01 ana grup kodu diyelim 101 gelecek ana grup adını manuel yazıp kaydet butonuna bastığım zaman excel ana grup sayfasına örnek olarak gösterdiğim kayıtı atacak.

Ama burada dikkat edeceğimiz husus mesela makyaj seçimi yaparken alt kategori yeni kaydı yapacağız 2 makyaj kodu ana grup kodu 01 "201" gibi.

Kısaca excel sayfasında benim grup ve alt gruplar sayfam var orada ki kodlara göre otomatik kodlama yapmak istiyorum.

Göndereceğim resimlerlede anlatmak istediğim desteklemişimdir umarım.

Yardımcı olursanız çok sevinirim.

http://s7.dosya.tc/server10/1iifhl/Downloads.rar.html
Kullanıcı avatarı
Erkan Yılmaz
Siteye Alışmış
 
Kayıt: 20 Eyl 2017 09:24
Meslek: Maliyet Kontrol Şefi
Yaş: 35
İleti: 196
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Antalya-Kemer

Cevap: Listbox da bulunan seçime göre kayıt ve otomatik sayı

İleti#2)  feraz » 07 Kas 2018 06:27

Merhaba.

Ana Grup sayfası için yaptım bişeyler.


Kod: Tümünü seç
Private Sub CommandButton9_Click() 'Userofrm1 Listbox2 yeni kayit

    Dim i As Integer, say As Integer
    say = 0
    For i = 0 To Me.ListBox1.ListCount - 1
        If Me.ListBox1.Selected(i) = True Then say = say + 1
    Next

   If say > 0 Then
       UserForm3.Show
    Else
       MsgBox "Önce Kategoriden Secim Yap...", vbCritical
   End If

End Sub




Kod: Tümünü seç
Private Sub CommandButton2_Click() 'Userform3 Kaydet

   Dim son As Integer, bul As Range, adres As String, bulsatr As Integer

 
    Set bul = Sheets("Ana Grup").Range("C:C").Find(Me.TextBox2.Value, , , 1)
             If Not bul Is Nothing Then
               adres = bul.Address
                Do
                    bulsatr = bul.Row
                    Set bul = Sheets("Ana Grup").Range("C:C").FindNext(bul)
                Loop While Not bul Is Nothing And adres <> bul.Address
               
                 Rows(bulsatr + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
                 
             End If
       If bulsatr = 0 Then
           son = Sheets("Ana Grup").Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1

        Sheets("Ana Grup").Range("B" & son).Value = Me.TextBox1.Value * 1
        Sheets("Ana Grup").Range("C" & son).Value = Me.TextBox2.Value
        Sheets("Ana Grup").Range("D" & son) = Me.TextBox3.Text
       
        If Len(Sheets("Ana Grup").Range("D" & son)) = 1 Then
       
        Sheets("Ana Grup").Range("D" & son).NumberFormat = "@"
             Sheets("Ana Grup").Range("D" & son) = "0" & Sheets("Ana Grup").Range("D" & son)
        End If
       
        Sheets("Ana Grup").Range("E" & son).Value = Me.TextBox4.Value
        Sheets("Ana Grup").Range("F" & son) = (Me.TextBox1.Text & Me.TextBox3.Text) * 1
GoTo var
       End If
             
             
    Sheets("Ana Grup").Range("B" & bulsatr + 1).Value = Me.TextBox1.Value
    Sheets("Ana Grup").Range("C" & bulsatr + 1).Value = Me.TextBox2.Value
'    Sheets("Ana Grup").Range("D" & bulsatr + 1).Value = Me.TextBox3.Value
     Sheets("Ana Grup").Range("D" & bulsatr).AutoFill Destination:=Sheets("Ana Grup").Range("D" & bulsatr & ":D" & bulsatr + 1)
    Sheets("Ana Grup").Range("E" & bulsatr + 1) = Me.TextBox4.Value
    Sheets("Ana Grup").Range("F" & bulsatr + 1) = (Me.TextBox1.Text & Me.TextBox3.Text) * 1

var:
    son = Sheets("Ana Grup").Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1
   
     UserForm1.ListBox2.ColumnCount = 2
     UserForm1.ListBox2.ColumnHeads = True
     UserForm1.ListBox2.RowSource = Sheets("Ana Grup").Range("B3:C" & son).Address

Set bul = Nothing: adres = vbNullString

Unload Me

End Sub


Kod: Tümünü seç
Private Sub UserForm_Initialize() 'Userform3


    Dim bul As Range, adres As String, bulsatr As Integer
     
   
    Me.TextBox4.SetFocus
   
     With UserForm1.ListBox1

        If Sheets("Ana Grup").Range("C3").Value = "" Then
           
             Me.TextBox1.Value = .Value
             Me.TextBox2.Value = .List(.ListIndex, 1)
             Me.TextBox3.Value = "01"
           
         Else
       
             Me.TextBox1.Value = .Value
             Me.TextBox2.Value = .List(.ListIndex, 1)
             
            Set bul = Sheets("Ana Grup").Range("C:C").Find(UCase(Replace(Replace(Me.TextBox2.Value, "ý", "I"), "i", "Ý")), , , 1)
             If Not bul Is Nothing Then
               adres = bul.Address
                Do
                    bulsatr = bul.Row
                    Set bul = Sheets("Ana Grup").Range("C:C").FindNext(bul)
                Loop While Not bul Is Nothing And adres <> bul.Address
             Else
             
             Me.TextBox3.Value = "01"
             GoTo son
               
             End If
             
             Me.TextBox3.Value = Range("D" & bulsatr).Value + 1
             
             If Len(Me.TextBox3.Value) = 1 Then Me.TextBox3.Value = "0" & Me.TextBox3.Value
             
        End If
     End With
son:
Set bul = Nothing: adres = vbNullString
End Sub
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5432
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Listbox da bulunan seçime göre kayıt ve otomatik sayı

İleti#3)  Erkan Yılmaz » 07 Kas 2018 11:06

Sayın Feraz,

Ellerine sağlık kodlar için çok teşekkür ederim. Şu anda istediğim kodlamayı yapıyor. Bir kaç sorum olacak.

1. Excel dosyasından Kategori sayfasındaki Stok Kayıt butonuna bastığım zaman ana grup kaydı yapacağımda kayıt olmasına rağmen sıfırdan kayıt atıyor sebebini anlamadım.

Resim

Ama excel dosyasında ki ana grup sayfasında ki stok kayıt butonuna bastığım zaman normal kayıt nerede kaldıysa devam ediyor.

Resim

Stok kayıt formunu açtığımızda Kategori list boxından parfümü seçtiğimiz zaman ana grup list boxında parfüme ait alt kategorileri, kategori kısmından makyaj seçimi yaptığımız zaman makyaja ait attığımız kayıtların listesini nasıl gösterebiliriz?

Gönderdiğim örnek resimle daha iyi anlatabilmişimdir umarım.

Resim
Kullanıcı avatarı
Erkan Yılmaz
Siteye Alışmış
 
Kayıt: 20 Eyl 2017 09:24
Meslek: Maliyet Kontrol Şefi
Yaş: 35
İleti: 196
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Antalya-Kemer

Cevap: Listbox da bulunan seçime göre kayıt ve otomatik sayı

İleti#4)  Erkan Yılmaz » 07 Kas 2018 11:48

Sayın Feraz,

Ana grup yeni kayıtlar attığım haliyle yeni dosyada. Gerçekten tam istediğim gibi olmuş ellerine sağlık sizin gibi üstadlar da olmazsa ne yaparız bilmiyorum. İyi ki varsınız. Sizler sayesinden bir şeyler yapabiliyoruz.

http://s3.dosya.tc/server17/5y28kn/2018 ... o.rar.html
Kullanıcı avatarı
Erkan Yılmaz
Siteye Alışmış
 
Kayıt: 20 Eyl 2017 09:24
Meslek: Maliyet Kontrol Şefi
Yaş: 35
İleti: 196
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Antalya-Kemer

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Listbox da bulunan seçime göre kayıt ve otomatik sayı

İleti#5)  feraz » 07 Kas 2018 12:29

Rica ederim.
Dosyayı bu siteye eklermisiniz.
Resimleride göremiyorum.Resimlerde bu siteye eklenebilir.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5432
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Listbox da bulunan seçime göre kayıt ve otomatik sayı

İleti#6)  Erkan Yılmaz » 07 Kas 2018 12:32

Sayın Feraz,

Dosyayı ve resmi yükledim.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Erkan Yılmaz
Siteye Alışmış
 
Kayıt: 20 Eyl 2017 09:24
Meslek: Maliyet Kontrol Şefi
Yaş: 35
İleti: 196
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Antalya-Kemer

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Listbox da bulunan seçime göre kayıt ve otomatik sayı

İleti#7)  feraz » 07 Kas 2018 12:37

Tamam.Birazdan bakatım.
Zaman bulamazsamda akşam bakarım.Hata resimlerinide yüklermisiniz bakayım.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5432
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Cevap: Listbox da bulunan seçime göre kayıt ve otomat

İleti#8)  Erkan Yılmaz » 07 Kas 2018 12:42

feraz yazdı:Tamam.Birazdan bakatım.
Zaman bulamazsamda akşam bakarım.Hata resimlerinide yüklermisiniz bakayım.


Sayın Feraz,

Resimlerde dosyanın içinde mevcuttur.

Çok teşekkür ediyorum.
Kullanıcı avatarı
Erkan Yılmaz
Siteye Alışmış
 
Kayıt: 20 Eyl 2017 09:24
Meslek: Maliyet Kontrol Şefi
Yaş: 35
İleti: 196
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Antalya-Kemer

Cevap: Listbox da bulunan seçime göre kayıt ve otomatik sayı

İleti#9)  feraz » 07 Kas 2018 13:45

Listbox1 e tıklayınca Listbox2 ye getirme olayını hallettim.
Diğerlerine zamanım yetmedi artık akşama inşAllah.

Listbox2 de sütun başlıkları çıkması için ya Label ekleyeceksiniz yada bulunuanları başka bir sayfaya aktarıp listboxun rowsource özelliği ile başlıkla çağırabiliriz.
Bir deneyiniz.

Kod: Tümünü seç
Private Sub ListBox1_Click()

Application.ScreenUpdating = False
With Me.ListBox2

  .ColumnCount = 3
   son = Sheets("Ana Grup").Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
   
   Dim k As Range, adrs As String, j As Byte, a As Long, myarr()
   ReDim arr(1 To 3, 1 To 1)

    Me.ListBox2.RowSource = vbNullString
    Set k = Sheets("Ana Grup").Range("C:C").Find(ListBox1.List(ListBox1.ListIndex, 1), , xlValues, xlWhole)
    If Not k Is Nothing Then
        adrs = k.Address
        Do
            a = a + 1
            ReDim Preserve arr(1 To 3, 1 To a)
            For j = 1 To 3
                arr(j, a) = Sheets("Ana Grup").Cells(k.Row, j + 3).Value
            Next j
            Set k = Sheets("Ana Grup").Range("C:C").FindNext(k)
        Loop While Not k Is Nothing And k.Address <> adrs
        .Column = arr
        UserForm3.Show

    End If

End With
Application.ScreenUpdating = True
Erase arr
End Sub
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5432
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Listbox da bulunan seçime göre kayıt ve otomatik sayı

İleti#10)  Erkan Yılmaz » 07 Kas 2018 14:32

Sayın feraz,

Teşekkür ederim. İstediğim bu şekilde ancak listboxda seçim yaptığım zaman Ana Grup Kayıt Formuda çıkıyor. Onun çıkmaması lazım aslında. Ve listbox1 de yani kategoride seçim yapmadığım zaman Ana grup listesinde hepsinin çıkmasını sağlayabilir miyiz?

Kategori için userform 1 e başlıkları aşağıda ki kodla aynı sayfadan çağırmıştık sanırım.

Kod: Tümünü seç
Private Sub UserForm_Initialize()
If Sheets("Kategori").Cells(Rows.Count, "C").End(xlUp).Row > 2 Then
    ListBox1.RowSource = "Kategori!B3:C" & _
            Sheets("Kategori").Cells(Rows.Count, "C").End(xlUp).Row
            ListBox1.ColumnWidths = (70)
           
            End If
End Sub


Excelde ki ana grup sayfasından aynı şekilde çağırmamız mümkün değil mi?
Kullanıcı avatarı
Erkan Yılmaz
Siteye Alışmış
 
Kayıt: 20 Eyl 2017 09:24
Meslek: Maliyet Kontrol Şefi
Yaş: 35
İleti: 196
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Antalya-Kemer

Cevap: Listbox da bulunan seçime göre kayıt ve otomatik sayı

İleti#11)  feraz » 07 Kas 2018 15:22

İşte olduğum için bakamıyorum.
Aklımda kaldığına göre kayıt formunun çıkmamadı için Userform.show vardı onu silin.
Diğerlerini akşam ayarlarım.
Zor olan kısımları dün yaptım :)

Listbox başlık olayı ise son eklediğiniz kod değişecek.Çünkü orda arama yapılmıyordu seçime göre.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5432
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Listbox da bulunan seçime göre kayıt ve otomatik sayı

İleti#12)  feraz » 07 Kas 2018 15:47

 Ve listbox1 de yani kategoride seçim yapmadığım zaman Ana grup listesinde hepsinin çıkmasını sağlayabilir miyiz?

Burda şunumu demek istiyorsunuz.
Eğer listboxta bir seçim olursa örneğin parfüm B ile F ie aralığımı listelenecek listbox2de parfüm ile alakalı.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5432
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Cevap: Listbox da bulunan seçime göre kayıt ve otomat

İleti#13)  Erkan Yılmaz » 07 Kas 2018 15:52

feraz yazdı:İşte olduğum için bakamıyorum.
Aklımda kaldığına göre kayıt formunun çıkmamadı için Userform.show vardı onu silin.
Diğerlerini akşam ayarlarım.
Zor olan kısımları dün yaptım :)

Listbox başlık olayı ise son eklediğiniz kod değişecek.Çünkü orda arama yapılmıyordu seçime göre.



Sayın feraz,

Yardımlarınızı esirgemediğiniz için çok teşekkür ederim.

Userform.show bu kodu silince çıkmıyor artık.

Asıl zor olan kısmı yeni başlıyor sanırım alt grup var daha [uzulme]

Tamam bekliyor olacağım.
Kullanıcı avatarı
Erkan Yılmaz
Siteye Alışmış
 
Kayıt: 20 Eyl 2017 09:24
Meslek: Maliyet Kontrol Şefi
Yaş: 35
İleti: 196
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Antalya-Kemer

Cevap: Listbox da bulunan seçime göre kayıt ve otomatik sayı

İleti#14)  feraz » 07 Kas 2018 23:28

Şimdi bu listbox3 e veri nasıl gelecek yani listbox1e tıklayıncamı,listbox2ye tıklayıncamı.

Ve hangi sayfadaki ve hangi sütundaki veriler gelecek.Bilmece gibi :)
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5432
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Cevap: Listbox da bulunan seçime göre kayıt ve otomat

İleti#15)  Erkan Yılmaz » 08 Kas 2018 00:46

feraz yazdı:Şimdi bu listbox3 e veri nasıl gelecek yani listbox1e tıklayıncamı,listbox2ye tıklayıncamı.

Ve hangi sayfadaki ve hangi sütundaki veriler gelecek.Bilmece gibi :)


Sayın feraz,

Dışarıda olduğum için foruma bakma şansım olmadı kusura bakmayın lütfen ancak şimdi sorunuzu cevaplayabiliyorum.

Aslında pek bilmecelik bir şey yok sadece ben düzgünce anlatamamış olabilirim. Bir oradan bir buradan anlatınca arapsaçına döndürmüş olabilirim.

Şu anda Listbox 3 ile işimiz yok onu daha sonra halledeceğiz.

Userform.show bu kodu sildim ve artık kayıt formu gelmiyor. İstediğim şekilde userform 1 de seçime göre userform2 de ana gruplar geliyor. userform1 de hiç seçim yapmadığım zaman userform2 de tüm kayıtlar gelebilir mi?

İkinci olarak userform2 de excel dosyasında ki ana grup sayfasında ki D2 ile F2 sütun aralığında ki başlıkların çıkması.
Kullanıcı avatarı
Erkan Yılmaz
Siteye Alışmış
 
Kayıt: 20 Eyl 2017 09:24
Meslek: Maliyet Kontrol Şefi
Yaş: 35
İleti: 196
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Antalya-Kemer

Cevap: Listbox da bulunan seçime göre kayıt ve otomatik sayı

İleti#16)  Erkan Yılmaz » 08 Kas 2018 00:51

Şu anda yeni güncellemiş olduğum ve bir kaç kategorinin ana grupları ile birlikte kayıt atmış olduğum dosyayı ek'te gönderiyorum.

2018 Stok Kodları Makro.rar
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Erkan Yılmaz
Siteye Alışmış
 
Kayıt: 20 Eyl 2017 09:24
Meslek: Maliyet Kontrol Şefi
Yaş: 35
İleti: 196
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Antalya-Kemer

Cevap: Listbox da bulunan seçime göre kayıt ve otomatik sayı

İleti#17)  feraz » 08 Kas 2018 01:04

Cevaplarınızı görmeden tahminen dosyayı hazırlamıştım.

Listbox1 den 3 e kadar hazırlamıştım bir deneyin son eklediğiniz dosyayı inceleyene kadar.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5432
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Cevap: Listbox da bulunan seçime göre kayıt ve otomat

İleti#18)  Erkan Yılmaz » 08 Kas 2018 01:15

feraz yazdı:Cevaplarınızı görmeden tahminen dosyayı hazırlamıştım.

Listbox1 den 3 e kadar hazırlamıştım bir deneyin son eklediğiniz dosyayı inceleyene kadar.


Aynen doğru tahmin etmişsin. Harikasınız... Userform 2 de yaptığımızın aynısını yeni kayıt yaparak userform3 içinde yapacaktık. Ben sadece kafa karıştırmamak adına adım adım gideyim istemiştim ve alt grup için yeni kayıt formu hazırlayacaktım exceldeki alt grup sayfasında verileri kayıt atarak otomatik kod vererek yapacaktım. Elinize sağlık. Userform3 için yeni kayıt formu yaptıktan sonra daha kolay işimiz sanırım.
Kullanıcı avatarı
Erkan Yılmaz
Siteye Alışmış
 
Kayıt: 20 Eyl 2017 09:24
Meslek: Maliyet Kontrol Şefi
Yaş: 35
İleti: 196
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Antalya-Kemer

Cevap: Listbox da bulunan seçime göre kayıt ve otomatik sayı

İleti#19)  feraz » 08 Kas 2018 01:25

Sevindim işe yaradığına :)

Siz dosyayı düzenleyin ve neyi nasıl yapılacağını tam anlatırsanız olmayacak bişey yok üstad :)
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5432
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Cevap: Listbox da bulunan seçime göre kayıt ve otomat

İleti#20)  Erkan Yılmaz » 08 Kas 2018 01:42

feraz yazdı:Sevindim işe yaradığına :)

Siz dosyayı düzenleyin ve neyi nasıl yapılacağını tam anlatırsanız olmayacak bişey yok üstad :)


Sayın feraz,

Yardımların için çok teşekkür ederim. Eline emeğine sağlık. Allah razı olsun. Şimdi göndermiş olduğum dosya için userform2 için exceldeki ana grup sayfasında ki D2 ve F2 arasındaki başlıklar, userform3 için ise G2 ile I2 arasındaki kolon başlıklarını nasıl getirebiliriz üstadım.

Ben diğer userform3 için detaylı anlatabileceğim bir dosya hazırlayacağım yarın. Gönderdiğim dosyada zaten userform3 için kayıt formu olarak userform4 ü hazırladım.

Üstadım bir de dikkatini çekti mi bilmiyorum userform1 de yani kategori için yeni kayıt butonuna bastığımız zaman userform1 deki veriler siliniyor kayıtı tamamladığında tekrar geliyor.

2018 Stok Kodları Makro.rar
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Erkan Yılmaz
Siteye Alışmış
 
Kayıt: 20 Eyl 2017 09:24
Meslek: Maliyet Kontrol Şefi
Yaş: 35
İleti: 196
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Antalya-Kemer

Sonraki

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Bing[Bot], Google [Bot], Google Adsense [Bot] ve 1 misafir

Bumerang - Yazarkafe