textbox with same name in visual basic for excel

MsgBox 'CLEAN & CHANGE Cell Content', vbOKOnly + vbInformation, 'TEST (CLEAN & CHANGE)' NewText = TextBox_ADD_Line.Value '& 'more txt, etc.'ĬheckBox_Change.Value = True And CheckBox_NEW.Value = False Then ' MsgBox 'NEW Cell Content', vbOKOnly + vbInformation, 'Add NEW content to Cell'

If CheckBox_NEW.Value = True And CheckBox_ADD.Value = False And _ĬheckBox_Change.Value = False And CheckBox_Cleanup.Value = False Then If InStrRev(sChars, Mid(ActiveCell, lPos, 1)) Then _ ' MsgBox 'Just CLEAN Cell Content', vbOKOnly + vbInformation, 'Only CLEAN the Cell-Content'įor lPos = Len(ActiveCell.Value) To 1 Step -1 If CheckBox_Cleanup.Value = True And CheckBox_ADD.Value = False And _ĬheckBox_Change.Value = False And CheckBox_NEW.Value = False Then If ActiveCell.Value 0 Then ' Change all in to.

' MsgBox 'Just CHANGE the Cell-Content', vbOKOnly + vbInformation, 'Only CHANGE the Cell-Content' If CheckBox_Change.Value = True And CheckBox_ADD.Value = False And _ĬheckBox_Cleanup.Value = False And CheckBox_NEW.Value = False Then With ActiveCell.Characters(Len(ActiveCell.Value) - Len(NewText) + 1, Len(NewText)).Font NewText = ' ' & ''ĪctiveCell.Characters(Len(ActiveCell.Value) + 1).Insert NewText Private Sub OK_Button_Form_Ctrl_W_Click()ĭim NewText As String ' NewText is used to define the input value for: ADD 0 Then ' Change all in to.

Textbox with same name in visual basic for excel