User Form Benzersiz Veri Çekme

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

User Form Benzersiz Veri Çekme

İleti#1)  emiroglu07 » 27 Tem 2022 10:43

Üstadlar kolay gelsin bir konuda yardım isteyecektim.
Kullanmış olduğum excel dosyasındaki user form veri çektidiğimde aynı olan verileri sırlamaktadır.Bunu kaldırmak için ne yapabilirim. Birde Cektiğim veriyi extre sayfasındaki b1 satırına aktarması için nasıl bir işlem yapabilirim.
Kod: Tümünü seç
Sub kayıtlarıal()
Dim kayıtsayısı, Satır As Variant
ListBox1.Clear
kayıtsayısı = Sheets("TEKNE").Cells(Rows.Count, "B").End(xlUp).Row
For Satır = 2 To kayıtsayısı
    If InStr(Sheets("TEKNE").Range("B" & Satır), TextBox1.Value) > 0 Then
ListBox1.AddItem Sheets("TEKNE").Range("B" & Satır)
    End If
Next Satır
End Sub

Private Sub ListBox1_Click()
ActiveCell.Value = ListBox1.Value
End Sub

Private Sub TextBox1_Change()
Dim text As Variant
text = TextBox1.text: text = UCase(text): TextBox1.text = text
UCase (TextBox1.Value)
Call kayıtlarıal
End Sub

Kullanmış Olduğum kod ektedir.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
emiroglu07
Site Dostu
 
Adı Soyadı:AHMET
Kayıt: 07 Oca 2014 18:36
Konum: İSTANBUL
Meslek: TEKSTİL
Yaş: 35
İleti: 638
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DİDİM

Yıllık Maaş Bordrosu Hesaplama 2022

Cevap: User Form Benzersiz Veri Çekme

İleti#2)  emiroglu07 » 27 Tem 2022 18:13

Üstadlar kodu nasıl revize edebilirim acaba [ilginc]
Kullanıcı avatarı
emiroglu07
Site Dostu
 
Adı Soyadı:AHMET
Kayıt: 07 Oca 2014 18:36
Konum: İSTANBUL
Meslek: TEKSTİL
Yaş: 35
İleti: 638
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DİDİM

Cevap: User Form Benzersiz Veri Çekme

İleti#3)  emiroglu07 » 28 Tem 2022 09:14

Konu hakkında yardımcı olabilecek bır ustad varmıdır acaba [uzulme]
Kullanıcı avatarı
emiroglu07
Site Dostu
 
Adı Soyadı:AHMET
Kayıt: 07 Oca 2014 18:36
Konum: İSTANBUL
Meslek: TEKSTİL
Yaş: 35
İleti: 638
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DİDİM

Cevap: User Form Benzersiz Veri Çekme

İleti#4)  halily » 28 Tem 2022 15:25

ilgili formdaki kodları aşağıdakilerle değiştirip dener misiniz?
sadece bnzersiz listeleme için
diğer sorunuz için yeni konu açmalısınız
Kod: Tümünü seç
Sub kayıtlarıal()
Application.ScreenUpdating = False  'PERSONEL BUL
Set syf = ThisWorkbook.Worksheets("TEKNE"): SonStr = syf.Range("B" & syf.Rows.Count).End(xlUp).Row + 1
syf.Activate
ListBox1.Clear ' = ""
Set dic = CreateObject("Scripting.Dictionary")

With syf
If .FilterMode Then .ShowAllData
    .Range("A3").Sort key1:=.Columns("B"), Order1:=xlAscending, Header:=xlYes

        If Len(Trim(TextBox1) & "") > 0 Then .Range("A3").AutoFilter Field:=2, Criteria1:="*" & TextBox1 & "*"
DzByt = Application.WorksheetFunction.Subtotal(3, .Range("B4:B" & SonStr)) 'veri yoksa
If DzByt < 1 Then MsgBox "Veri Yok": GoTo 10
Set Rng = .Range("B4:B" & SonStr).SpecialCells(12) '12 : xlCellTypeVisible
    For Each cll In Rng.Cells
        dic(cll.Value) = 0
    Next
ListBox1.List = dic.keys
10
If .FilterMode Then .ShowAllData
    .Range("A3").Sort key1:=.Columns("A"), Order1:=xlAscending, Header:=xlYes

End With
Application.ScreenUpdating = True

End Sub
Kod: Tümünü seç
Private Sub TextBox1_Change()
    Call kayıtlarıal
End Sub
Kullanıcı avatarı
halily
Site Dostu
 
Kayıt: 23 May 2019 13:16
Meslek: yok
Yaş: 42
İleti: 957
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: adana

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

Cevap: User Form Benzersiz Veri Çekme

İleti#5)  emiroglu07 » 28 Tem 2022 17:16

Üstad malesef makro uygun deliğil ekstre sayfasında makroya basıyorum user form tekne sayfasına aktarıyor beni
bana ekstre sayfası içinde lazım user form
Kullanıcı avatarı
emiroglu07
Site Dostu
 
Adı Soyadı:AHMET
Kayıt: 07 Oca 2014 18:36
Konum: İSTANBUL
Meslek: TEKSTİL
Yaş: 35
İleti: 638
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DİDİM

Cevap: User Form Benzersiz Veri Çekme

İleti#6)  halily » 28 Tem 2022 17:40

ben sadece userformdaki listboxa, alfabetik sıralı benzersiz alma kısmı için yazmıştım
o kısım hatalı mı? arama sonucunda aranan kelimeyi içeren tüm tekneler listelenmiyor mu?
Kullanıcı avatarı
halily
Site Dostu
 
Kayıt: 23 May 2019 13:16
Meslek: yok
Yaş: 42
İleti: 957
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: adana

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: User Form Benzersiz Veri Çekme

İleti#7)  halily » 28 Tem 2022 17:41

bu arada arama
hangi formda olacaktı,
ne aranacaktı,
hangi sayfadaki, hangi alanda aranacaktı?
Kullanıcı avatarı
halily
Site Dostu
 
Kayıt: 23 May 2019 13:16
Meslek: yok
Yaş: 42
İleti: 957
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: adana

Cevap: User Form Benzersiz Veri Çekme

İleti#8)  emiroglu07 » 28 Tem 2022 18:34

Üstad tekne sayfasındaki b stunun da yer alan tekne isimlerini ekstre sayfasında açtığım userform içinde benzersiz olarak sıralamak amacım.
Yapmış olduğunu kodda beni deirek tekne sayfasının içine atmaktadır. [ilginc]
Kullanıcı avatarı
emiroglu07
Site Dostu
 
Adı Soyadı:AHMET
Kayıt: 07 Oca 2014 18:36
Konum: İSTANBUL
Meslek: TEKSTİL
Yaş: 35
İleti: 638
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DİDİM

Cevap: User Form Benzersiz Veri Çekme

İleti#9)  halily » 28 Tem 2022 18:57

aşağıdaki kodu dener misiniz?
Kod: Tümünü seç
Sub kayıtlarıal()
Dim kayıtsayısı, Satır As Variant
ListBox1.Clear
Set Syf = ThisWorkbook.Worksheets("TEKNE")
kayıtsayısı = Syf.Cells(Syf.Rows.Count, "B").End(xlUp).Row
Set dic = CreateObject("Scripting.Dictionary")
For Satır = 4 To kayıtsayısı
VarMi = WorksheetFunction.CountIf(Syf.Cells(Satır, 2), "*" & TextBox1.Value & "*")
    If VarMi > 0 Then
        dic(Syf.Cells(Satır, 2).Value) = 0
    End If
Next Satır
ListBox1.List = dic.keys
End Sub
Kullanıcı avatarı
halily
Site Dostu
 
Kayıt: 23 May 2019 13:16
Meslek: yok
Yaş: 42
İleti: 957
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: adana

Cevap: User Form Benzersiz Veri Çekme

İleti#10)  emiroglu07 » 29 Tem 2022 10:29

şkşk Boşa üstad demiyorum nokta atışı yapmışsınız çok teşekkür ederim halil bey Rabbim işlerinizi rast getirsin.
Kullanıcı avatarı
emiroglu07
Site Dostu
 
Adı Soyadı:AHMET
Kayıt: 07 Oca 2014 18:36
Konum: İSTANBUL
Meslek: TEKSTİL
Yaş: 35
İleti: 638
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DİDİM

Cevap: User Form Benzersiz Veri Çekme

İleti#11)  halily » 29 Tem 2022 12:28

rica ederim
iyi çalışmalar)
Kullanıcı avatarı
halily
Site Dostu
 
Kayıt: 23 May 2019 13:16
Meslek: yok
Yaş: 42
İleti: 957
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: adana


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Google [Bot], jeddi ve 4 misafir

Bumerang - Yazarkafe