DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub CommandButton1_Click()
For Each Nesne In Me.Controls
If TypeName(Nesne) = "TextBox" Then
Nesne.Value = Replace(Nesne.Value, " ", "")
End If
Next
End Sub
Sub Aktar()
Range("AC" & ActiveCell.Row).Resize(1, 26).Value = Range("A1").Resize(1, 26).Value
End Sub