tablodaki adet ve yükseklik verilerini metnin içinde göstermek

[modoste]

merhaba sayın hocalarım ekli tabloda sorumu ilettim
Z12:AH13 aralığındaki tablo verilerine göre D13 deki metni nasıl formülle yapabiliriz.

 

[ÖmerFaruk]

Şu kadarını versem gerisini yapabileceğinizi tahmin ediyorum. Aralara virgülleri koyup aynı formülü AH sütununa kadar uzatmalısınız
=EĞER(Z12>0;"("&Z12& " Ad.→" &METNEÇEVİR(Z12;"0,00 m)");"")

 

[modoste]

sayın hocam çözüm için teşekkür ederim
ancak bu aralık değişken eklemeler çıkarmalar olacağı için (yani Z12:AH13 aralığı 100 sütuna kadar çıkabilecek ilerde) teker teker eğer kullanıp formül yapmaktan başka çözüm olabilir mi
ben bu alternatifi öğrenmek için sormuştum

 

[ÖmerFaruk]

MetinBirleştir işleviyle bir şeyler yapılabilir belki ama siz 2010 kullanıyorsunuz. Tek çıkar yolunuz Makro ya da KTF kullanmanızdır

 

[Muzaffer Ali]

Merhaba.
Alternatif KTF.
Aşağıdaki kodu bir modüle kopyalayın.

Function Adet_Yukseklik(Alan As Range) As String
    Dim Bak As Integer
    For Bak = 1 To Alan.Count / 2
        If IsNumeric(Alan(Bak + (Alan.Count / 2)).Text) Then
            If Adet_Yukseklik = "" Then
                Adet_Yukseklik = "(" & Alan(Bak + (Alan.Count / 2)).Text & " Ad.›" & Alan(Bak).Text & ")"
            Else
                Adet_Yukseklik = Adet_Yukseklik & ", (" & Alan(Bak + (Alan.Count / 2)).Text & " Ad.›" & Alan(Bak).Text & ")"
            End If
        End If
    Next
End Function

=Adet_Yukseklik(Z12:AH13) şeklinde kullanabilirsiniz.
İstediğiniz kadar sütun seçebilirsiniz.

 

[modoste]

bu sorum için elbet makro yada ktf kullanabilirim. bir defa bulup başka bir yere kopyala yapacağım
çözüm için teşekkürler.
formülle çözüm varsa elbet beklemekteyim çözümü
kullandığım excel 2019 hocam

 

[ÖmerFaruk]

Profilinizde 2010 yazıyor. Düzeltmeniz faydalı olacaktır.

 

[modoste]

hemen düzeltiyorum hocam teşekkür ederim

 

[Muzaffer Ali]

Yukarıda verdiğim kod işinizi gördü mü?

 

[modoste]

işimi gördü teşekkür ederim

 

[52779]

Selamlar,
Office 2019 kullandığınıza göre
@ÖmerFaruk
tarafından verilen formülü METİNBİRLEŞTİR işlevi ile şu şekilde yazabilirsiniz.

=METİNBİRLEŞTİR(", ";;EĞER(Z13:AH13>0;"("&Z13:AH13& " Ad.→" &METNEÇEVİR(Z12:AH12;"0,00 m)");""))

 

[modoste]

formülü uyguladım normal enter ile hata verdi CTRL+SHİFT+ENTER ile yapınca oldu
teşekkür ederim