Sample. Sheet1, has some cells with the formated for Hours soem ar set for Currency, and some are set for Percent.
Now i have a user form from wich i insert the information to sheet1 ok works good
but the original formats on the cells on sheet1 have been change i guess to General format or something like that because all the formulas that i have, are showing me The Value,Error,You name it it's doin it.
Here it's some of the code.
Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
Sheet13.range("c250").End(xlUp).Offset(1, 0) = TextBox1
Sheet13.range("d250").End(xlUp).Offset(1, 0) = TextBox2
Sheet13.range("e250").End(xlUp).Offset(1, 0) = TextBox3
Sheet13.range("a250").End(xlUp).Offset(1, 0) = ComboBox5
Sheet13.range("y250").End(xlUp).Offset(1, 0) = TextBox7
Sheet13.range("h250").End(xlUp).Offset(1, 0) = ComboBox7
Sheet13.range("aa250").End(xlUp).Offset(1, 0) = TextBox8
Sheet13.range("j250").End(xlUp).Offset(1, 0) = ComboBox8
Sheet13.range("n250").End(xlUp).Offset(1, 0) = ComboBox9
Sheet13.range("l250").End(xlUp).Offset(1, 0) = ComboBox10
Sheet13.range("g250").End(xlUp).Offset(1, 0) = ComboBox11
Sheet13.range("p250").End(xlUp).Offset(1, 0) = ComboBox12
TextBox1 = vbNullString
TextBox2 = vbNullString
TextBox3 = vbNullString
ComboBox5 = vbNullString
ComboBox7 = vbNullString
TextBox7 = vbNullString
TextBox8 = vbNullString
ComboBox8 = vbNullString
ComboBox9 = vbNullString
ComboBox10 = vbNullString
ComboBox11 = vbNullString
ComboBox12 = vbNullString
End if
End sub
well the problem realy it's that i need to keep the cell fromating that i have .in oder to calculate the rest of the shee1 information. any Ideas? Thanks in advance Lukan
Bookmarks