+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Kod İle Metinbirlestir Fonksiyonu Olusturma (/konu-kod-ile-metinbirlestir-fonksiyonu-olusturma.html)
Kod İle Metinbirlestir Fonksiyonu Olusturma - tarkanaykın - 21/03/2022
Merhaba arkadaşlar, benim excelde metinbirlestir fonksiyonu yok, bunun kod ile yapılmış örnekleri var midir, ben bulamadım da, cok lazim , isimi bayağı bir görecek, yardımcı olur musunuz? teşekkürler
RE: Kod İle Metinbirlestir Fonksiyonu Olusturma - userx - 22/03/2022
Ekteki örneği inceler misin?
RE: Kod İle Metinbirlestir Fonksiyonu Olusturma - tarkanaykın - 22/03/2022
(22/03/2022, 00:24)userx yazdı: Ekteki örneği inceler misin?sayın userx bilgilendirme için çok teşekkür ederim yalnız belirtmeyi unuttum, boşluk olunca sadece nokta koyuyor, ben boşlukları görmezden gelsin istiyorum, bu yüzden metnibirleştir fonksiyonunun peşindeyim çünkü o fonksiyonda boşluğu yok say parametresi de var, bu kodu o şekilde revize edebilir miyiz?
RE: Kod İle Metinbirlestir Fonksiyonu Olusturma - userx - 22/03/2022
Benim yüklediğim örneğimdeki virgülü mü kastediyorsun?
RE: Kod İle Metinbirlestir Fonksiyonu Olusturma - tarkanaykın - 22/03/2022
(22/03/2022, 01:45)userx yazdı: Benim yüklediğim örneğimdeki virgülü mü kastediyorsun?nokta veya virgül neyse... mesela boş sütun olunca o boşluğu geçsin hesaba katmasın istiyorum, ama boş sütun olunca nokta koyuyor, veya virgül neyse işte
Re: Kod İle Metinbirlestir Fonksiyonu Olusturma - tarkanaykın - 22/03/2022
Cok teşekkürler sayın userx kodu biraz uğraşıp ihtiyacım gore degistirebildim, epey bi uğraştım ama, lazım eden arkadaşlar kullansın , boşlukları yok sayiyor, for sayılarını değiştirerek uyarlayabilirler
Sub Düğme1_Tıkla()
Dim a As String
For i = 1 To 20
a = "."
For j = 1 To 4
If Cells(i, j).Value = "" Then
GoTo bura
Else
If j = 1 Then
Cells(i, 7).Value = Cells(i, j).Text
Else
Cells(i, 7).Value = Cells(i, 7).Value & a & Cells(i, j).Text
End If
End If
bura:
Next j
Next i
End Sub