Soru Hücre Birleştirme Hakkında Yardım

[EgemenTR]

Merhabalar ekteki tablodaki 3 hücreli excel calişmasında d hücresine a b c hücrelerindeki adreslerinin birleştirmesini istiyorum bunu nasil yapabilirim

 

[Necdet]

Merhaba,

=A1 & " " & B1 & " " & C1

 

[EgemenTR]

Merhaba,

=A1 & " " & B1 & " " & C1

Bu şekilde bana uymuyor programa aktarma yapcam, veri aktarımı da makrodan otomatik yapıp " d" sutuna vermesini istiyorum, formül oldugu zaman muhasebe programı görmüyor çünkü

 

[Levent Menteşoğlu]

Bu şekilde bana uymuyor programa aktarma yapcam, veri aktarımı da makrodan otomatik yapıp " d" sutuna vermesini istiyorum, formül oldugu zaman muhasebe programı görmüyor çünkü

Dosyanız eklenmemiş. Ancak anladığım kadarıyla Necdet beyin önerisini aşağıdaki gibi makro koduna çevirebilirsiniz.

sub birlestir()

Range("D1")=Range("A1")&" "&Range("B1")&" "&Range("C1")

end sub

 

[Necdet]

Bu şekilde bana uymuyor programa aktarma yapcam, veri aktarımı da makrodan otomatik yapıp " d" sutuna vermesini istiyorum, formül oldugu zaman muhasebe programı görmüyor çünkü

Fonksiyon bölümünde sorunca Necdet ne yapsın?

 

[TUNCA ERSİN]

Dosyanız eklenmemiş. Ancak anladığım kadarıyla Necdet beyin önerisini aşağıdaki gibi makro koduna çevirebilirsiniz.

sub birlestir()

Range("D1")=Range("A1")&" "&Range("B1")&" "&Range("C1")

end sub

hocam bunu 2. satır ile 8000. satır arasında yapmak gerekir ise nasıl yapabiliriz. b de saat var c den de soldan 3 harf alacak. yardımcı olur musunuz hocam. teşekkür ederim.

 

[excelokyanus500]

Deneyiniz...

Sub Birlestironi()
Dim sayfa As Worksheet
Set sayfa = ActiveSheet
sonsat = sayfa.Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row
Dim sonuc As String
For i = 2 To sonsat 'satır
    For j = 1 To 2 'sütun adedi
      For k = 3 To 3 'sütun adedi
        If sayfa.Cells(i, j) <> "" Then
            If sonuc <> "" Then
                sonuc = sonuc & sayfa.Cells(i, j).Text & Left(sayfa.Cells(i, k).Text, 3)
            Else
                sonuc = sonuc & sayfa.Cells(i, j).Text
            End If
        End If
    Next
    sayfa.Cells(i, 4) = sonuc
Next
sonuc = ""
Next
End Sub

 

[TUNCA ERSİN]

Deneyiniz...

Sub Birlestironi()
Dim sayfa As Worksheet
Set sayfa = ActiveSheet
sonsat = sayfa.Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row
Dim sonuc As String
For i = 2 To sonsat 'satır
    For j = 1 To 2 'sütun adedi
      For k = 3 To 3 'sütun adedi
        If sayfa.Cells(i, j) <> "" Then
            If sonuc <> "" Then
                sonuc = sonuc & sayfa.Cells(i, j).Text & Left(sayfa.Cells(i, k).Text, 3)
            Else
                sonuc = sonuc & sayfa.Cells(i, j).Text
            End If
        End If
    Next
    sayfa.Cells(i, 4) = sonuc
Next
sonuc = ""
Next
End Sub

hocam bunu kendime uygulamayamadım.
A2 den A 8000 birleştirecek.

F2 ile F8000 saat
H2 ile H8000 ilk üç harf
J2 ile J8000 ilk üç harf
A2ile A8000 arasına birleşecek.

F saat &H ilk üç harf & J ilk üç harf
A sutunu F sutunu H sutunu J sutunu

08:30 MER ADA.

1 Şubat 2022 Salı

08:30​

-

MERSİN

ADANA

 

[Necdet]

hocam bunu 2. satır ile 8000. satır arasında yapmak gerekir ise nasıl yapabiliriz. b de saat var c den de soldan 3 harf alacak. yardımcı olur musunuz hocam. teşekkür ederim.

Eğer soruya soru eklemeyecekseniz bunu 2 şekilde yapabilirsiniz.

1. Yöntem :

=A2&METNEÇEVİR(B2;"ss:dd")&SOLDAN(C2;3)

yazar sonuna kadar kopyalarsınız.
Sonra D sütununu seçip kopyala / değer yapıştır ile formülden kurtarırsınız.

2. Yöntem Makro ile :

Sub Makro1()
    
    Dim i As Long
    
    Application.ScreenUpdating = False
    
    For i = 2 To Cells(Rows.Count, "A").End(3).Row
        Range("D" & i) = Cells(i, "A") & Format(Cells(i, "B"), "hh:mm") & Left(Cells(i, "C"), 3)
    Next i
    
    Application.ScreenUpdating = True
    
End Sub

 

[excelokyanus500]

Doğru anlamış isem:

Birleştirme yeri A sütununda olacak. (F saat &H ilk üç harf & J ilk üç harf )

Buna göre Necdet Bey'in formülünde biraz oynama yaparsak sanırım işlem tamam olacak.

Sub M2()
    
    Dim i As Long
    
    Application.ScreenUpdating = False
    
    For i = 2 To Cells(Rows.Count, "E").End(3).Row
        Range("A" & i) = Format(Cells(i, "F"), "hh:mm") & " " & Left(Cells(i, "H"), 3) & " " & Left(Cells(i, "J"), 3) & "."
    Next i
    
    Application.ScreenUpdating = True
    
End Sub

 

[TUNCA ERSİN]

Doğru anlamış isem:

Birleştirme yeri A sütununda olacak. (F saat &H ilk üç harf & J ilk üç harf )

Buna göre Necdet Bey'in formülünde biraz oynama yaparsak sanırım işlem tamam olacak.

Sub M2()
   
    Dim i As Long
   
    Application.ScreenUpdating = False
   
    For i = 2 To Cells(Rows.Count, "E").End(3).Row
        Range("A" & i) = Format(Cells(i, "F"), "hh:mm") & " " & Left(Cells(i, "H"), 3) & " " & Left(Cells(i, "J"), 3) & "."
    Next i
   
    Application.ScreenUpdating = True
   
End Sub

Hocam teşekkür ederim. elinize ve emeğinize sağlık