A sütundan olan kodları toplayıp başka sayfada tek hücrede birleştirme

[serdarfb]

Merhaba

Benim istediğim örnek olsun diye kalın olarak yazdığım 89554569 sayısını hücreye yazdığımda 89554569 sayısının olduğu kodları sayfa2 de bir hücrede toplaması

yardımcı olabilirseniz memnun olurum

örnek resim ve dosya ektedir.

Lifebox Transfer: Upload File! Send and Share Large Files

Lifeboxtransfer is a fast file transfer service for sharing your files easily without membership. Click and start sharing your files fast and easily with lifeboxtransfer.

lifeboxtransfer.com

 

[Necdet]

Merhaba,

Arayacağınız değeri Sayfa1'in E1 sütununa yazın ve aşağıdaki kodu çalıştırın.
Not : Belirtilmediği için tek bir değer arar, gerekirse E2, E3 vs hücrelerine değerler girilerek çoklu olarak aratılabilinir, kodu ona göre döngüye sokmak gerekir.

Public Sub Bul()

    Dim c   As Range, _
        adr As String, _
        deg As Variant

deg = ""
With Sayfa1.Range("B:B")
    Set c = .Find(Sayfa1.Range("E1"), LookIn:=xlValues, LookAt:=xlPart)
    If Not c Is Nothing Then
        adr = c.Address
        Do
            deg = deg & " " & c.Offset(0, -1)
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> adr
    End If
End With

Sayfa2.Range("A2") = Sayfa1.Range("E1")
Sayfa2.Range("B2") = deg

End Sub

 

[serdarfb]

Necdet bey çok teşekkür ederim. Sadece kod aralarını boşluk yerine = nasıl yapabilirim

 

[Necdet]

Merhaba,

deg = deg & " " & c.Offset(0, -1)

satırında " " yerine "=" olarak yazarsanız isteğiniz olur.

 

[serdarfb]

Hata verdi Necdet Bey

 

[serdarfb]

Sorun çözüldü Necdet Bey boşluk bırakarak = yazmam gerekiyormuş çok teşekkür ederim çok yardımcı oldunuz

 

[serdarfb]

E2,E3 veya daha fazla değer girilerek nasıl aratabiliriz