Veri arama

[nkeles]

İyi günler,
Arkadaşlar yardımcı olabilirseniz çok mutlu olurum.
Ekli dosyada Oluştur sayfası A2 sutununa kod girdiğimde B2 sutununa Veribankası sayfasından serikodu taşımasını istiyorum. Oluştur sayfasına girdiğim liste 150 satırdan fazla olabilyor. Aynı anda yapabilmeli..
Teşekkürler yardımlarını bekliyorum.

 

[Ömer]

Merhaba,

Linki inceleyiniz.

VLOOKUP-DÜŞEYARA UYGULAMASI

.

 

[nkeles]

Merhaba,

Linki inceleyiniz.

VLOOKUP-DÜŞEYARA UYGULAMASI

.

Teşekkür ederim istediğim tamda buna benzer bir şey. Ama eksik var. Yapmak istediğimi tam olarak anlatayım..
Elime her gün belirli dosyalar gelir. Excel ortamında
Örnk:
Ürt. Kodu Renk Adet
25884 kırmızı 5 adet
26684 yeşil 5 adet
26684 sarı 5 adet
21112 sarı 5 adet

Ben bunları bilgisayarımda tek tek girmek durumunda kalıyorum, oysa bunların hepsi pc de tanımlı zaten. Özel kodları var. Ben excele tüm özel kodları yükleyip yukarıda yazılı bilgilerin özel kodlarını düzenlemek istiyorum. Her şey tamam lakin sonda yer alan adetler işimi zorlaştırıyor. çünkü her 1 adet in farklı özel kodu tanımlı.. Bende şöyle düşündüm. Her adet için bir sayfa açmayı toplamda 5 sayfa yapar Her Kod için 5 farklı kodu karşısına taşımış olurum bu sayede..

Peki bunu nasıl yapabilirim. Üretim kodunun karşısına 5 farklı özel kodu nasıl taşıyabilirim. Ben Üretim kodunu ve adeti yükleyelim excel bana 5 adet kodu bulup getirsin..

 

[nkeles]

Yardımcı olabilecek arkadaş yok mu

 

[nkeles]

Arkadaşlar isteğimi farklı bir şekilde daha yazıyım. Son yüklediğim dosyada bul sayfasında A2 hücresinde yazılı olan bilgiye ait veriyi her sayfada farklı farklı aramasını ve B2,c2,d2,e2 hücrelerine her sayfadan ayrı ayrı verileri getirmesini istiyorum. Bana vermiş olduğunu link işimi kısmen görüyor lakin tek bir arama ile 5-6 veri bulmam gerekli..
Lütfen destek..

 

[Ömer]

Merhaba,

=DÜŞEYARA($A2;DOLAYLI("'"&B$1&"'!A:B");2;0)

Formülünü deneyin.

.

 

[nkeles]

Merhaba,

=DÜŞEYARA($A2;DOLAYLI("'"&B$1&"'!A:B");2;0)

Formülünü deneyin.

.

Teşekkürler yardımınız için bunu hallettim. Yalnız bana liste halinde lazım. Sütün ve Satırlara 100 lerce bilgi karışık geliyor. Boş bir sayfaya satır halinde alt alta oluşturabilmem için makro yada formül varmıdır acaba..

 

[Ömer]

Formülü yana ve alta doğru dilediğiniz kadar kopyalayabilirsiniz.

.

 

[nkeles]

Formülü yana ve alta doğru dilediğiniz kadar kopyalayabilirsiniz.

.

Tam olarak demek istediğimi anlatamadım sanırım.
Sayfa 2 de A1 A2 A3 ...... B1 B2 B3... C1 C2 C3 .... D1 D2 D3.... veriler olduğunu düşünün. Kısacası Sayfa 2 de alt alta veya yan yana değil çapraz şekilde de veriler mevcut. Ben tüm bu verileri boş bir sayfaya alt alta sıralamak istiyorum. Kopyala Yapıştır uzun sürmekte. Bana gerekli olan Sayfa 1 e ben verileri oluşturduğumda o istediğim Sayfa 2 ye alt alta sıralarsın..
Teşekkürler. Yardımlarınızı bekliyorum.

 

[Ömer]

Sorunuzu örnek dosya üzerinde detaylı açıklayıp eklermisiniz.

.

 

[nkeles]

Sorunuzu örnek dosya üzerinde detaylı açıklayıp eklermisiniz.

.

Dosyayı ekte gönderdim. Dosyada iki sayfa göreceksiniz Veri ve Liste olarak. Ben Veri de özel kodları oluşturabiliyorum. Ama sayfadaki gib 6 sutun a oluşturabildim. Ben bunları tek sutunda liste halinde olmasını istiyor. Veri oluşur oluşmaz LİSTE sayfasında tek sutunda listelensin. Hatta büyükten küçüğe sıralansın

 

[Ömer]

Dosyayı ekte gönderdim. Dosyada iki sayfa göreceksiniz Veri ve Liste olarak. Ben Veri de özel kodları oluşturabiliyorum. Ama sayfadaki gib 6 sutun a oluşturabildim. Ben bunları tek sutunda liste halinde olmasını istiyor. Veri oluşur oluşmaz LİSTE sayfasında tek sutunda listelensin. Hatta büyükten küçüğe sıralansın

Hatalı hücreler ( #YOK ) neden var?

Ayrıca A:G arası sütunlardaki verilermi listelenecek yoksa B:G mi yada hangi sütunar litelenecek?

.

 

[nkeles]

Hatalı hücreler ( #YOK ) neden var?

Ayrıca A:G arası sütunlardaki verilermi listelenecek yoksa B:G mi yada hangi sütunar litelenecek?

.

Hatalı hücreler #YOK o ürünle ilgili özel kodun oluşturulmadığını gösteriyor ki bu normal bir şey.. Buna takılmayalım..
B:G arasındaki verilerin listelenmesini istiyorum..
Aslına bakarsanız listeye #YOK yazan hatalı hücreler aktarılmasa çok güzel olurdu
Teşekkürler.

 

[Ömer]

Hatalı hücreler #YOK o ürünle ilgili özel kodun oluşturulmadığını gösteriyor ki bu normal bir şey.. Buna takılmayalım..
B:G arasındaki verilerin listelenmesini istiyorum..
Aslına bakarsanız listeye #YOK yazan hatalı hücreler aktarılmasa çok güzel olurdu
Teşekkürler.

Bu şekilde deneyin.

Sub Aktar_Sirala_Sil()
 
    Dim i As Byte, sonv As Long, sonl As Long
 
    Application.ScreenUpdating = False
 
    Sheets("LİSTE").Select
    [A:A].ClearContents
 
    With Sheets("VERİ")
        For i = 2 To 7
            sonv = .Cells(Rows.Count, i).End(xlUp).Row
            sonl = Cells(Rows.Count, "A").End(xlUp).Row + 1
            .Range(.Cells(2, i), .Cells(sonv, i)).Copy Cells(sonl, "A")
        Next i
    End With
 
    Range("A2:A" & Rows.Count).Sort Range("A2")
    [A:A].SpecialCells(xlCellTypeConstants, xlErrors).ClearContents
 
    Application.ScreenUpdating = True
 
End Sub

.

 

[nkeles]

Bu şekilde deneyin.

Sub Aktar_Sirala_Sil()
 
    Dim i As Byte, sonv As Long, sonl As Long
 
    Application.ScreenUpdating = False
 
    Sheets("LİSTE").Select
    [A:A].ClearContents
 
    With Sheets("VERİ")
        For i = 2 To 7
            sonv = .Cells(Rows.Count, i).End(xlUp).Row
            sonl = Cells(Rows.Count, "A").End(xlUp).Row + 1
            .Range(.Cells(2, i), .Cells(sonv, i)).Copy Cells(sonl, "A")
        Next i
    End With
 
    Range("A2:A" & Rows.Count).Sort Range("A2")
    [A:A].SpecialCells(xlCellTypeConstants, xlErrors).ClearContents
 
    Application.ScreenUpdating = True
 
End Sub

.

Ömer kardeşim önceki gönderdiğim dosyaya kodu eklediğimde çalışıyor. Tam istediğim gibi lakin ben Veri sayfasını formüllerle oluşturuyorum başka sayfalardan. Bu kodları elimdeki dosyaya eklediğimde ise hata veriyor. En son dosyayı gönderiyorum sana. Yardımların için teşekkür ederim.

 

[Ömer]

Hatalı hücreler #YOK o ürünle ilgili özel kodun oluşturulmadığını gösteriyor ki bu normal bir şey.. Buna takılmayalım..
B:G arasındaki verilerin listelenmesini istiyorum..
Aslına bakarsanız listeye #YOK yazan hatalı hücreler aktarılmasa çok güzel olurdu
Teşekkürler.

Bu yüzden sormuştum.

Akşam müsait zamanda inceleyip geri dönüş yaparım.

.

 

[Ömer]

Ömer kardeşim önceki gönderdiğim dosyaya kodu eklediğimde çalışıyor. Tam istediğim gibi lakin ben Veri sayfasını formüllerle oluşturuyorum başka sayfalardan. Bu kodları elimdeki dosyaya eklediğimde ise hata veriyor. En son dosyayı gönderiyorum sana. Yardımların için teşekkür ederim.

Kodları aşağıdaki şekilde değiştirin.

Sub Aktar_Sirala_Sil()
 
    Dim i As Byte, sonv As Long, sonl As Long
 
    Application.ScreenUpdating = False
 
    Sheets("LİSTE").Select
    [A:A].ClearContents
 
    With Sheets("VERİ")
        For i = 2 To 7
            sonv = .Cells(Rows.Count, i).End(xlUp).Row
            sonl = Cells(Rows.Count, "A").End(xlUp).Row + 1
            .Range(.Cells(2, i), .Cells(sonv, i)).Copy
            Cells(sonl, "A").PasteSpecial xlPasteValues, xlNone
        Next i
    End With
 
    Application.CutCopyMode = False

    Range("A2:A" & Rows.Count).Sort Range("A2")
    [A:A].SpecialCells(xlCellTypeConstants, xlErrors).ClearContents
    Range("A1").Select
    
    Application.ScreenUpdating = True
 
End Sub

.

 

[nkeles]

Kodları aşağıdaki şekilde değiştirin.

Sub Aktar_Sirala_Sil()
 
    Dim i As Byte, sonv As Long, sonl As Long
 
    Application.ScreenUpdating = False
 
    Sheets("LİSTE").Select
    [A:A].ClearContents
 
    With Sheets("VERİ")
        For i = 2 To 7
            sonv = .Cells(Rows.Count, i).End(xlUp).Row
            sonl = Cells(Rows.Count, "A").End(xlUp).Row + 1
            .Range(.Cells(2, i), .Cells(sonv, i)).Copy
            Cells(sonl, "A").PasteSpecial xlPasteValues, xlNone
        Next i
    End With
 
    Application.CutCopyMode = False

    Range("A2:A" & Rows.Count).Sort Range("A2")
    [A:A].SpecialCells(xlCellTypeConstants, xlErrors).ClearContents
    Range("A1").Select
    
    Application.ScreenUpdating = True
 
End Sub

.

Dostum harikasın ya.. Beni çok büyük bir iş yükünden kurtardın. Keşke kod yazabilsem şu küçük excel dosyasını geliştirebilsem. Şu haliyle bile beni büyük zahmetten kurtarıyor.. Çok teşekkür ederim. Zaman zaman başınızı ağrıtabilirim.