calvuch

Confirma lo siguiente. Deseas copiar de cada hoja el rango N2:¿N23 ( supongo que en N1 existe un rotulo) a la columna B de la hoja resumen en orden secuencial?.

Prueba esto Private Sub ComboBox10_Change() Dim R As Variant If ComboBox10.Text = "BAJA" Then R = MsgBox("Deseas dar de baja ?", vbYesNo, "Pregunta") If R = 6 Then TextBox4 = Date Else TextBox4.SetFocus End If End If End Sub

A ver si entendí... por ejemplo si escribes OK en una celda, ¿quieres qué esa celda se ponga de color Verde y si escribes en esa celda "mal" quieres que se ponga rojo? ¿Es eso?... Si es eso, dime en que columna deseas que eso ocurra y desde que celda...

en vez de asignarle ="" prueba con asignarle =Empty O limpia la celda con clear [A1].Clear

Prueba ahora Sub CLEANINC() ' ' CLEANINC Macro ' Macro grabada el 24/11/2010 por USER' ' Dim respuesta As Integer respuesta = MsgBox("¿DESEAS CONTINUAR?", vbQuestion + vbYesNoCancel, "COORDINACION DE TRANSPORTE") If respuesta = 6 Then MsgBox...

Esto imprime El rango entre d8:h16 Sub imprime() Range("D8:H16").Select ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,1,,,TRUE,,FALSE)" End Sub Puedes adaptarlo a tus botones En cada uno insertas este sub y modificas el rango que te interesa que se imprima

Prueba esto Inserta un nuevo modulo a tu proyecto y pega esto: Option Explicit Dim RI As Integer Sub recorre() Dim i As Integer Dim cad As String Dim tc As Integer Dim t As Integer Application.ScreenUpdating = False cad = Replace(Selection.Address,...

Prueba con esto: Private Sub CommandButton1_Click() ifila = ActiveCell.Select ActiveCell.Value = Form1.TextBox1.Text If Trim(TextBox1) = Empty Then MsgBox "No se ha ingresado Nueva Segmentacion", vbInformation TextBox1.SetFocus: Exit Sub Else ifila =...

Con este sub creas hojas dándole el nombre de lo que tengas en columna A de hoja1 Tal vez lo puedas adaptar a tu proyecto Sub crea_hoja() Dim i As Integer Worksheets.Item(1).Select [a65536].Formula = "=COUNTA(R[-65535]C:R[-1]C)" For i = 1 To...

En B2 pon esto =extrae(a2;1;encontrar("-";a2;1)-1)