Makro kodu ile 6 sütunu birleştirme işlemi

[Yesilyurtlu]

Değerli Uzmanlarım;
A1:F3250 sütun aralığında yer alan hücrelerde numaralar mevcut.
Ekli dosyada bulunan A:F aralığında ki numaraları H sütununda Aralarında " . " nokta işareti olarak makro ile birleştirebilir miyiz?
Yardımcı olabilir misiniz? H sütununda örnek verilmiştir.
Teşekkür Ederim

 

[halit3]

Değerli Uzmanlarım;
A1:F3250 sütun aralığında yer alan hücrelerde numaralar mevcut.
Ekli dosyada bulunan A:F aralığında ki numaraları H sütununda Aralarında " . " nokta işareti olarak makro ile birleştirebilir miyiz?
Yardımcı olabilir misiniz? H sütununda örnek verilmiştir.
Teşekkür Ederim

Merhaba Sayın Yeşilyurtlu 727 adet mesajınız olmuş bu baya yüksek bir sayı devamlı soru soruyorsunuz ve muhtemelende cevapları alıyorsunuz.
birazcıkta öğrenmek gerekli bu kadar mesajınız olduğuna göre baya bir şeyler öğrenmiş olmanız gerekir bana kalırsa devamlı soru sormaktansa bu işi araştırarak ve birazda emek sarfederek öğrenmek gerek ve öğrenilen bilgilerle burada bildiklerinizide paylaşmak doğru olur kanaatindeyim.

kodu bir modüle kopyalayın.

Sub birlestir()
For r = 2 To Cells(Rows.Count, "a").End(3).Row
deg = ""
For j = 1 To WorksheetFunction.CountA(Worksheets(ActiveSheet.Name).Range(Cells(r, 1), Cells(r, 5)))
If j = 1 Then
deg = Cells(r, j).Value
Else
deg = deg & "." & Cells(r, j).Value
End If
Next j
Cells(r, 8).Value = deg
Next r
MsgBox "işlem tamam"
End Sub