seçili hücreleri başka hücreye seçerek yazdırma

[mmsez]

Merhaba.
Başlık biraz uzun ve tuhaf oldu ama sadece başlık için bile bir miktar düşündüm.
ekte ye alan dosyayı açıklamak gerekirse;
bir listem var bu listede x ile seçtiğim referansları başka bir hücreye dosyada açıklşadığım şekilde yazsın istiyorum.


desteğiniz için teşekkürler..

 

[Vedat Özer]

Selamlar,


İstemiş oldugunuzun biraz farklısını beraber yapalım


G3 Hücresine aşagıdaki formülü yapıştırın,

=EĞERSAY(A:A;F1)

Sonra,


F2 Hücresin'den başlayıp aşagıya doğru çekin,


Formül dizi formüldür,


CTRL + SHİFT + ENTER


Yaptıktan sonra formülün başında ve sonunda { } işareti çıkacak böyle olmassa formül yanlış değer getirir.

=EĞER(SATIR(A1)>$G$1;"";İNDİS($A$1:$B$100;KÜÇÜK(EĞER($A$1:$A$100=$F$1;SATIR($A$1:$A$100));SATIR(B1));SÜTUN(B1)))

 

[mmsez]

Selamlar,


İstemiş oldugunuzun biraz farklısını beraber yapalım


G3 Hücresine aşagıdaki formülü yapıştırın,

=EĞERSAY(A:A;F1)

Sonra,


F2 Hücresin'den başlayıp aşagıya doğru çekin,


Formül dizi formüldür,


CTRL + SHİFT + ENTER


Yaptıktan sonra formülün başında ve sonunda { } işareti çıkacak böyle olmassa formül yanlış değer getirir.

=EĞER(SATIR(A1)>$G$1;"";İNDİS($A$1:$B$100;KÜÇÜK(EĞER($A$1:$A$100=$F$1;SATIR($A$1:$A$100));SATIR(B1));SÜTUN(B1)))

cevabınız ve uğraşınız için çok teşekkürler.
Fakat benim için belirttiğim gibi tek hücrede ve o formatta yazılması çok önemli.

 

[Ömer]

cevabınız ve uğraşınız için çok teşekkürler.
Fakat benim için belirttiğim gibi tek hücrede ve o formatta yazılması çok önemli.

Merhaba,

Module kopyalarak çalıştırınız.

Sub BulYaz()
 
    Dim c As Range, ilkadres As Variant, ek As String
 
    Application.ScreenUpdating = False
 
    Range("F2").ClearContents
 
    With Range("A:A")
        Set c = .Find("X", LookIn:=xlValues, LookAt:=xlWhole)
        If Not c Is Nothing Then
            ilkadres = c.Address
            Do
                If Range("F2") <> "" Then
                    ek = Right(Cells(c.Row, "B"), 2)
                Else
                    ek = Cells(c.Row, "B")
                End If
                Range("F2") = Range("F2") & "-" & ek
 
                Set c = .FindNext(c)
            Loop While Not c Is Nothing And c.Address <> ilkadres
        End If
    End With
 
    Range("F2") = WorksheetFunction.Substitute(Range("F2"), "-", "", 1)
 
    Application.ScreenUpdating = True
 
End Sub

.

 

[mmsez]

tek hücreye değişken sayıda veri yazdırma....

Dosyayı biraz değiştirdim...
Dosyada açıklama mevcut.özet tabloda yer alan satır sayısı ve bilgi değişiklik gösteriyor.
Yardım lütfen.... ((

 

[mmsez]

ömer hocam valla ne diyebilirimki...?
sizlere teşekkür etmekten başka elimizden bir şey gelmiyor....