Excel Arama

[Beo]

Merhaba arkadaşlar

Bir excel de 47 sayfalı bir excelim var bu sayfaların her biri koliyi ifade ediyor her sayfada A:E sütunu kadar uzunlukta ve son satıra kadar iniyor

benim istediğim Bir tane arama sayfası açtım ben ve text box oluşturdum o text box a girdiğim barkodtan 47 tane olan sayfanın içinde kaçar tane oluğunu yine A7:E7 içerisine aşağı doğru yazmasını istiyorum konu hakkında yardımcı olabilirmsiinz

 

[volki_112]

dosya.co dosya.tc gibi paylaşım sitesine dosyanızı yükleyip paylaşım linki veriniz.

 

[volki_112]

Merhaba arkadaşlar

Bir excel de 47 sayfalı bir excelim var bu sayfaların her biri koliyi ifade ediyor her sayfada A:E sütunu kadar uzunlukta ve son satıra kadar iniyor

benim istediğim Bir tane arama sayfası açtım ben ve text box oluşturdum o text box a girdiğim barkodtan 47 tane olan sayfanın içinde kaçar tane oluğunu yine A7:E7 içerisine aşağı doğru yazmasını istiyorum konu hakkında yardımcı olabilirmsiinz

deneyin olmazsa dosyanızı paylaşın.

Sub BarkodAra()

    Dim barkod As String
    Dim sayfa As Worksheet
    Dim satir As Long
    Dim i As Long
    Dim sayac As Long

    ' TextBox1'deki barkodu al
    barkod = ThisWorkbook.Sheets("Arama").TextBox1.Value

    ' Sonuçları temizle
    ThisWorkbook.Sheets("Arama").Range("A7:E1000").ClearContents

    ' Sayfaları döngüye al
    satir = 7
    For Each sayfa In ThisWorkbook.Worksheets
        If sayfa.Name <> "Arama" Then ' Arama sayfası hariç

            ' Barkodu sayfa içinde ara
            sayac = 0
            For i = 1 To sayfa.Cells(Rows.Count, "A").End(xlUp).Row
                If sayfa.Cells(i, "A").Value = barkod Then
                    sayac = sayac + 1
                End If
            Next i

            ' Sonuçları Arama sayfasına yaz
            ThisWorkbook.Sheets("Arama").Cells(satir, "A").Value = sayfa.Name
            ThisWorkbook.Sheets("Arama").Cells(satir, "B").Value = sayac
            satir = satir + 1
        End If
    Next sayfa

End Sub

 

[pitchoute]

Merhaba, deneyip sonucu paylaşabilir misin;

Private Sub TextBox1_Change()
    Dim ws As Worksheet
    Dim searchValue As String
    Dim lastRow As Long
    Dim i As Long
    Dim countFound As Long
    Dim resultSheet As Worksheet
    Dim resultRow As Long
    
    searchValue = TextBox1.Text
    
    Set resultSheet = ActiveSheet
    resultRow = 7
    
    resultSheet.Range("A7:E50").ClearContents
    
    If searchValue = "" Then Exit Sub
    
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> resultSheet.Name Then
            lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
            
            countFound = 0
            
            For i = 1 To lastRow
                If ws.Range("A" & i).Value = searchValue Or _
                   ws.Range("B" & i).Value = searchValue Or _
                   ws.Range("C" & i).Value = searchValue Or _
                   ws.Range("D" & i).Value = searchValue Or _
                   ws.Range("E" & i).Value = searchValue Then
                    countFound = countFound + 1
                End If
            Next i
            
            If countFound > 0 Then
                resultSheet.Range("A" & resultRow).Value = ws.Name
                resultSheet.Range("B" & resultRow).Value = countFound
                resultSheet.Range("C" & resultRow).Value = "adet"
                resultRow = resultRow + 1
            End If
        End If
    Next ws
End Sub

 

[Beo]

Depo_Stok.xlsm dosyasını indir - download

Depo_Stok.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s6.dosya.tc

merhaba dosyayı ekledim birde güncelleme yapim

arama sayfasına diğer başlıkları da ekledim malzeme no ürün adı gibi onlarıda getirsin aradığımda ve birde sadece barkoddan değil harf yDığımda da o harleri veya kelimeyinin içerdiği içerikleride getirebilir mi teşekkürler

 

[Beo]

deneyin olmazsa dosyanızı paylaşın.

Sub BarkodAra()

    Dim barkod As String
    Dim sayfa As Worksheet
    Dim satir As Long
    Dim i As Long
    Dim sayac As Long

    ' TextBox1'deki barkodu al
    barkod = ThisWorkbook.Sheets("Arama").TextBox1.Value

    ' Sonuçları temizle
    ThisWorkbook.Sheets("Arama").Range("A7:E1000").ClearContents

    ' Sayfaları döngüye al
    satir = 7
    For Each sayfa In ThisWorkbook.Worksheets
        If sayfa.Name <> "Arama" Then ' Arama sayfası hariç

            ' Barkodu sayfa içinde ara
            sayac = 0
            For i = 1 To sayfa.Cells(Rows.Count, "A").End(xlUp).Row
                If sayfa.Cells(i, "A").Value = barkod Then
                    sayac = sayac + 1
                End If
            Next i

            ' Sonuçları Arama sayfasına yaz
            ThisWorkbook.Sheets("Arama").Cells(satir, "A").Value = sayfa.Name
            ThisWorkbook.Sheets("Arama").Cells(satir, "B").Value = sayac
            satir = satir + 1
        End If
    Next sayfa

End Sub

Dedim oldular ama istediğim gibi değil

 

[Beo]

Merhaba, deneyip sonucu paylaşabilir misin;

Private Sub TextBox1_Change()
    Dim ws As Worksheet
    Dim searchValue As String
    Dim lastRow As Long
    Dim i As Long
    Dim countFound As Long
    Dim resultSheet As Worksheet
    Dim resultRow As Long
   
    searchValue = TextBox1.Text
   
    Set resultSheet = ActiveSheet
    resultRow = 7
   
    resultSheet.Range("A7:E50").ClearContents
   
    If searchValue = "" Then Exit Sub
   
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> resultSheet.Name Then
            lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
           
            countFound = 0
           
            For i = 1 To lastRow
                If ws.Range("A" & i).Value = searchValue Or _
                   ws.Range("B" & i).Value = searchValue Or _
                   ws.Range("C" & i).Value = searchValue Or _
                   ws.Range("D" & i).Value = searchValue Or _
                   ws.Range("E" & i).Value = searchValue Then
                    countFound = countFound + 1
                End If
            Next i
           
            If countFound > 0 Then
                resultSheet.Range("A" & resultRow).Value = ws.Name
                resultSheet.Range("B" & resultRow).Value = countFound
                resultSheet.Range("C" & resultRow).Value = "adet"
                resultRow = resultRow + 1
            End If
        End If
    Next ws
End Sub

Oldu ama sürekli hata verdi birde dosyayı ekledim

 

[Beo]

Depo_Stok.xlsm dosyasını indir - download

Depo_Stok.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s6.dosya.tc

merhaba dosyayı ekledim birde güncelleme yapim

arama sayfasına diğer başlıkları da ekledim malzeme no ürün adı gibi onlarıda getirsin aradığımda ve birde sadece barkoddan değil harf yDığımda da o harleri veya kelimeyinin içerdiği içerikleride getirebilir mi teşekkürler

Yardım edicek kimse yok mu

 

[volki_112]

Yardım edicek kimse yok mu

@Beo istediğiniz şekilde dosyanızı hazırladım. TextBox a istediğiniziyazın daha sonra yandaki (D4) hücrede hangi başlıkta aranacağını seçip VERİLERİ GETİR butonuna basınız. Koli ismi ile başlayan sayfaları tarayıp eşlesen verileri getirir.

 

[Beo]

@Beo istediğiniz şekilde dosyanızı hazırladım. TextBox a istediğiniziyazın daha sonra yandaki (D4) hücrede hangi başlıkta aranacağını seçip VERİLERİ GETİR butonuna basınız. Koli ismi ile başlayan sayfaları tarayıp eşlesen verileri getirir.Ekli dosyayı görüntüle 256615

İndiremiyorum bi hata veriyo

 

[volki_112]

İndiremiyorum bi hata veriyo

Altın uye olmadığınız icin dosya indiremezsiniz. Gun icinde paylasim sitesi linki eklerim oradan indirirsiniz.

 

[Beo]

Alltaki linkte tıkalyıp dosyay gidin. Sağ üstte indir butonuna basarak indirin. İndirince haber verin. Linki kaldıracağım

VK Depo_Stok.xlsm

drive.google.com

Merhaba indirdim teşekkür ederim elinize sağlık