Kutucuğa yazdığım ürün kodunun karşısına gelen bilginin sonuç sayfasına gelmesi

[S.Yiğit]

Merhabalar,

Forumda bulduğum örnekleri kendime uyarlayamadım. Sorum örnekte açıkça belli. İstediklerim formullerle oluyor ama ağırlaşıyor ve boyutu büyüyor. Yardımcı olacaklara şimdiden teşekkürler.

 

[meslan]

Merhaba
dosyanız ektedir.
kolay gelsin

 

[S.Yiğit]

Sn meslan

Teşekkür ederim. Sanırım bir eksiklik var. Birleştir dediğimde sayılar 8,09345E+15 şeklinde çıkıyor normalde çıkmaması lazım çünkü sütunların birinde harf var birleştiğinde bozulmaması lazım. Listele dediğimde sonuç sayfasında sıralamıyor. ve ürün kodunu ben yazacağım, açılır kutu değilde benim yazabileceğim bişi olması lazım. Örnek olarak kutudan 810218'i seçeceğim ama A sütununda ne kadar varsa açılır kutuda o kadar görüyorum. İlginiz için teşekkürler.

 

[meslan]

Merhaba
dosyayı tekrar inceleyiniz.

 

[S.Yiğit]

Merhaba
dosyayı tekrar inceleyiniz.

Merhaba,

Sn meslan, Listele dediğimde sayfadakilerin hepsini sonuç sayfasına aktarıyor, bana sadece yazdığım ürün kodunun sonuç sayfasına gelmesi lazım. Ve birleştirme yaptığında sayıların başında ' işareti oluyor buda baska listeden düşeyara yaptığımda hepsine yok diyor. Yardım için teşekkürker.
Başka alternatif çözümler bekiyorum

 

[meslan]

MERHABA
Deneyiniz.

Sub birleştir()
Application.ScreenUpdating = False
Dim a, i As Double
Range("c2:c" & [c65536].End(3).Row).ClearContents
a = Range("a1:a" & [A65536].End(3).Row).Value
    For i = 2 To UBound(a, 1)
Cells(i, 3) = Cells(i, 1) & Left(Cells(i, 2), 10)
Cells(i, 3).NumberFormat = "0"
    Next
Application.ScreenUpdating = True
 End Sub

Sub listele()
Sheets("Sonuç").Range("A2:C" & [A65536].End(3).Row).ClearContents
s = 1
For i = 2 To Sheets("ŞAMPUAN").[A65536].End(3).Row
If Sheets("ŞAMPUAN").[h1].Value = Sheets("ŞAMPUAN").Cells(i, 1) Then
s = s + 1
Sheets("Sonuç").Cells(s, 1) = Sheets("ŞAMPUAN").Cells(i, 1)
Sheets("Sonuç").Cells(s, 2) = Sheets("ŞAMPUAN").Cells(i, 2)
Sheets("Sonuç").Cells(s, 3) = Sheets("ŞAMPUAN").Cells(i, 3)
End If
Next
Range("A2:C" & [A65536].End(3).Row).Sort Key1:=[A2], Order1:=xlAscending
End Sub

 

[S.Yiğit]

Sn meslan, Birleştirmedeki sorun düzeldi. Sonuç sayfasındaki bilgileri silip şampuan sayfasına geri gelip tekrar sonuç sayfasına geldiğimde tüm bilgiler geliyor yani listeleme tuşuna basmadan geliyor. Ben kutucuğa ürün kodunu yazıp listele dediğimde sadece yazdığım ürün koduna ait partilerin gelmesi yeterli birleştirilmiş olan bilgilerin gelmesine gerek yok.

 

[meslan]

merhaba
Sonuş sayfasındaki kodları siliniz.

 

[S.Yiğit]

Sn meslan, Sizi uğraştırıyorum ama dediğiniz gibi sonuç sayfasındaki kodları sildim. Şimdi listele dediğimde hiç bişey olmuyor yani sonuç sayfasına yazdığım ürün kodlarının bilgileri gelmedi. Teşekkürler..

 

[meslan]

Sn.Serkan Yiğit dosyayı yeniledim
Tekrar kontrol edinniz.

 

[S.Yiğit]

Sn.Serkan Yiğit dosyayı yeniledim
Tekrar kontrol edinniz.

Teşekkürler Sn meslan, bu sefer olmuş. Tek sorun birleştirmede ' işareti var yine

 

[meslan]

Sn. Serkan Bey dosyaya tekrar bakınız. Bende sayı olarak birleştiriyor. Olmazsa Sütüna biçimleme , sayı , ondalık basamağını sıfır yapınız.

 

[S.Yiğit]

Tekrar merhaba,

Sn meslan eve gelir gelmez 2. mesajdaki dosyaya tekrar baktım. sorun şu normalde ben birleştir formülünü =A2&SOLDAN(B2;10) şeklinde yazıyorum ve başka listeden Düşeyara yaptığımda sorun çıkarmıyor. Sizin gönderdiğiniz dosyada birleştir butonuna bastığımda ' işareti olmadan birleştiriyor fakat çıkan sonuçlarda yanlışlık var, son 2 sayıyı yuvarlıyor

Örnek vermem gerekirse A2 hücresinde 809344 yazıyor B2 hücresinde 8067484754L01 yazıyor. Bunu birleştirdiğinde 8093448067484750 sonucu çıkıyor. 266620 satırın 24171 satırı bu şekilde. Ben bu dosyamı hergün güncelliyorum. B sütunu aynı düzen gidiyor yani 13 haneli. A sütununa 8 haneli sayı giriyorum Verdiğimde örnekte 6 haneydi. Yardımlarınız için teşekkürler.

Bu sorunu nasıl çözebiliriz. Bir fikri olan varmı?

 

[Korhan Ayhan]

Selamlar,

Birleştirme işlemi için aşağıdaki kodu kullanabilirsiniz.

Boş bir modüle uygulayın.

Option Explicit
 
Sub BİRLEŞTİR()
    [C2:C65536].ClearContents
    With Range("C2:C" & [A65536].End(3).Row)
        .NumberFormat = 0
        .Formula = "=A2&LEFT(B2,10)"
        .NumberFormat = "@"
        .Value = .Value
    End With
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

2. Sorunuz için "ŞAMPUAN" isimli sayfanın "G1" hücresini kullanabiliriz.

ŞAMPUAN isimli sayfanın kod bölümüne aşağıdaki kodu uygulayın.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [G1]) Is Nothing Then Exit Sub
    If Not IsEmpty(Target) Then
    Target.Select
    [A1].AutoFilter Field:=1, Criteria1:=Target
    Sheets("Sonuç").Range("A:A").Clear
    Range("B1:B" & [B65536].End(3).Row).Copy Sheets("Sonuç").Range("A1")
    Sheets("Sonuç").Cells.EntireColumn.AutoFit
    [A1].AutoFilter
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
    End If
End Sub

Sonuç sayfasındaki bilgilerin silinip tekrar ŞAMPUAN isimli sayfaya dönmek için aşağıdaki kodu uygulayın.

Boş bir modüle uyuglayın.

Option Explicit
 
Sub GERİ()
    [A:A].Clear
    Sheets("ŞAMPUAN").Select
End Sub

 

[S.Yiğit]

Sn. Korhan bey, cevap için teşekkür ederim. Elinize sağlık tam istediğim gibi oldu.