Private Sub CommandButton1_Click() For i = 1 To Cells(65536, "D").End(xlUp).Row abc = Cells(1, 1).Value Cells(1, 1).Value = abc & " " & Cells(i, "D").Value & " " Next i MsgBox "Yanyana aktarma tammalandı." & vbLf & _ "Yusufpb", vbOKOnly + vbInformation, "Nuxoe" End Sub
Private Sub CommandButton1_Click()
For i = 1 To Cells(65536, "D").End(xlUp).Row abc = Cells(1, 1).Value Cells(1, 1).Value = abc & " " & Cells(i, "D").Value & " " Next i MsgBox "Yanyana aktarma tammalandı." & vbLf & _ "Yusufpb", vbOKOnly + vbInformation, "Nuxoe" End Sub
