sayfa 1de fiş no da veriler sayda 2 de birleştirme nasıl yapabilirim

[tarikgsm2@hotmail.com]

 

[betsfat]

Sayfa1'e girdiğiniz verilerin otomatik sayfa 2 de çıkmasını mı istiyorsunuz.Birleştirmeden kastınız nedir?

 

[tarikgsm2@hotmail.com]

SRV90000 olandan kaç tane var ise B sutününe hepisini yan yana yazsın

 

[tarikgsm2@hotmail.com]

Sayfa1'e girdiğiniz verilerin otomatik sayfa 2 de çıkmasını mı istiyorsunuz.Birleştirmeden kastınız nedir?

Sayfa1'e girdiğiniz verilerin otomatik sayfa 2 de çıkmasını mı istiyorsunuz.Birleştirmeden kastınız nedir?

Sayfa1'e girdiğiniz verilerin otomatik sayfa 2 de çıkmasını mı istiyorsunuz.Birleştirmeden kastınız nedir?

Sayfa1'e girdiğiniz verilerin otomatik sayfa 2 de çıkmasını mı istiyorsunuz.Birleştirmeden kastınız nedir?

SRV90000 olandan kaç tane var ise B sutününe hepisini yan yana yazsın

 

[betsfat]

Böyle birşey mi?

 

[tarikgsm2@hotmail.com]

Böyle birşey mi?

BU ŞEKİLDE OLABİLİR Mİ SAYFA 2 DE ÜRÜNLER YANYANA

 

[Hepgel]

Merhaba @tarikgsm2@hotmail.com

Deneyiniz.

VBA'da bir Modül oluşturup aşağıdaki kod modüle yapıştırın.

Function Coklu_Bul(bul As Range, alan As Range)
    Dim say As Integer, i As Integer
    Dim deg As String
    Application.Volatile
    
    For i = 1 To alan.Count
        If bul = alan.Cells(i) Then
            If Not alan.Cells(i).Offset(0, 1).Value = Empty Then
                deg = alan.Cells(i).Offset(0, 1).Value
                say = say + 1
            End If
            If say = 1 Then Coklu_Bul = deg
            If say > 1 Then Coklu_Bul = Coklu_Bul & " / " & deg
        End If
    Next i
    If say = 0 Then Coklu_Bul = "BOŞ"
End Function

Sonra da istediği bir hücreye aşağıdaki formülü uygulasın sonuç tamamdır.
Verdiğim Kullanıcı Tanımlı Fonksiyon dediğimiz KTF'dir.

=Coklu_Bul(A2;Sayfa1!$A$2:$A$124)

 

[tarikgsm2@hotmail.com]

Merhaba @tarikgsm2@hotmail.com

Deneyiniz.

VBA'da bir Modül oluşturup aşağıdaki kod modüle yapıştırın.

Function Coklu_Bul(bul As Range, alan As Range)
    Dim say As Integer, i As Integer
    Dim deg As String
    Application.Volatile
    
    For i = 1 To alan.Count
        If bul = alan.Cells(i) Then
            If Not alan.Cells(i).Offset(0, 1).Value = Empty Then
                deg = alan.Cells(i).Offset(0, 1).Value
                say = say + 1
            End If
            If say = 1 Then Coklu_Bul = deg
            If say > 1 Then Coklu_Bul = Coklu_Bul & " / " & deg
        End If
    Next i
    If say = 0 Then Coklu_Bul = "BOŞ"
End Function

Sonra da istediği bir hücreye aşağıdaki formülü uygulasın sonuç tamamdır.
Verdiğim Kullanıcı Tanımlı Fonksiyon dediğimiz KTF'dir.

=Coklu_Bul(A2;Sayfa1!$A$2:$A$124)

TEŞEKKÜR EDERİM OLDU

 

[Hepgel]

Rica Ederim.
İyi Çalışmalar.