Kod İle Metinbirlestir Fonksiyonu Olusturma

21/03/2022, 23:25

tarkanaykın

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
22/03/2022, 00:24

userx

Ekteki örneği inceler misin?
22/03/2022, 01:39

tarkanaykın

(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?
22/03/2022, 01:45

userx

Benim yüklediğim örneğimdeki virgülü mü kastediyorsun?
22/03/2022, 02:24

tarkanaykın

(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
22/03/2022, 03:32

tarkanaykın

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