Skip to main content

AccessTr.neT


Kod İle Metinbirlestir Fonksiyonu Olusturma

tarkanaykın
tarkanaykın
5
363

Kod İle Metinbirlestir Fonksiyonu Olusturma

Çözüldü #1
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
Cevapla
#2
Ekteki örneği inceler misin?
.zip deneme.zip (Dosya Boyutu: 14,3 KB | İndirme Sayısı: 1)
"Dünyayı fazla düşünme."
Cevapla
#3
(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?
Cevapla
#4
Benim yüklediğim örneğimdeki virgülü mü kastediyorsun?
"Dünyayı fazla düşünme."
Cevapla
#5
(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
Cevapla
#6
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
Son Düzenleme: 22/03/2022, 03:37, Düzenleyen: tarkanaykın.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da