Birleştirme

[mbattal]

Arkadaşlar Merhaba,
EK'teki dosyaya sorumu yazdım incelseniz sevinirim
Şimdiden Teşekkürler

 

[hamitcan]

Aşağıdaki şekilde deneyin.

Sub cogalt()
For i = 4 To 60000
    With Cells(i, "e")
        .FormulaR1C1 = _
            "=IF(RC[-3]="""","""",IF(RC[-2]="""""""","""""""",MONTH(RC[-2])))&RC[-3]"
        .Copy .Offset(1, 0)
    End With
Next
End Sub

 

[AS3434]

Sayın Hamitcan cevap vermiş ama şöyle de olur.

Sub Makro1()
For i = 4 To [b65536].End(3).Row
If Cells(i, 2) <> "" Then
Cells(i, 5) = Month(Cells(i, 3)) & Cells(i, 2)
End If: Next
End Sub

 

[mbattal]

Teşekkürler Sayın Hamitcan

 

[mbattal]

Teşekkürler Sayın AS3434