Dante Amor

Si lo quieres con fórmula el resultado en la columna B: ="0"&IZQUIERDA(A2;1)&"-"&EXTRAE(A2;2;2)&"-"&DERECHA(A2;6) Si lo quieres con macro y el resultado en la columna B: Sub PonerGuiones() With Range("B2:B" & Range("A" & Rows.Count).End(3).Row)...

Prueba la siguiente. Macro: 'SEGUNDO NIVEL PARA F3 Y F4 Select Case Range("F3") & Range("F4") Case BOLA, CADE, CECI, HERR, POSTA, LOMO, COGO & COG, ALET & ALE Range("I3") = "VERDADERO" Case Else Range("I3") = "FALSO" End Select Nota: Procura poner el...

Te respondí la pregunta. Deberías ser un poco más paciente, tal vez alguien más te pueda ayudar, pero está del otra lado del mundo. Va nuevamente la macro para que la consideres. Private Sub CommandButton1_Click() 'Por Dante Amor 'DECLARACIÓN de...

Según la imagen los resultados empiezan en C3, J3 y A3. Prueba la siguiente: Private Sub CommandButton1_Click() 'Por Dante Amor 'DECLARACIÓN de variables Dim a As Variant, b As Variant, c1 As Variant, c2 As Variant, c3 As Variant Dim dic As Object, i...

Prueba esto Sub test() 'VALIDACIONES If [C4] = "" Or [C5] = "" Or [C6] = "" Or [C7] = "" Then MsgBox "Faltan datos" Exit Sub End If ' 'Aquí seguiría tu macro ' End Sub

Si el control (textbox o combobox) está vacío entonces en la celda te guarda un vacío ¿Actualmente te guara en la celda espacios en blanco? ¿O qué problema tienes? Nota: Utiliza el icono para Insertar código fuente. Ya que de una imagen no se puede...

Después de esta línea .Cells(NuevaFila, 3).Value = textbox9 Pon estas líneas: If UCase(textbox9) = "CANCELADO" Then .Cells(NuevaFila, 3).Interior.ColorIndex = 3 Else .Cells(NuevaFila, 3).Interior.ColorIndex = 45 End If

¿Quieres el resultado en otra hoja? ¿Cuáles columnas quieres que pase a la otra hoja?

Prueba esto para borrar todos los seleccionados: Private Sub CommandButton1_Click() Dim i As Long For i = ListBox1.ListCount - 1 To 0 Step -1 If ListBox1.Selected(i) = True Then ListBox1.RemoveItem (i) End If Next End Sub

Supongo que no es necesario verificar si existen datos, de todas formas escribes en las celdas de la fila 4. Prueba lo siguiente: Sub Registro() Dim sh As Worksheet Set sh = Sheets("Formato") With Sheets("Registro") .Range("A4").EntireRow.Insert...