Dante Amor

Bienvenido a TodoExpertos. ¿Qué resultado necesitas? Puedes poner una imagen con tus datos, o datos genéricos de ejemplo, y mostrar el resultado que quieres.

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

La macro lee datos de celdas. De dónde quieres que lea esos datos, ¿de la hoja 2 o de la hoja 3? ¿O quieres que lea todos los datos de la hoja 2 y solamente escribir el resultado en la hoja 3?

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...

Prueba esto: Sub Contar() With ActiveCell Range("M" & .Row) = WorksheetFunction.CountIf(Range("A" & .Row & ":H" & .Row), Range("J" & .Row)) End With End Sub

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

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

Revisa si esto es lo que necesitas: =SI(CONTAR.SI(A2:A5;">50000")>=3;10%;1%)

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...

Si ya tienes la hoja en el combobox1 y el número de fila en el combobox2, puedes utilizarlos como referencia para obtener los datos: Private Sub ComboBox1_Change() ComboBox2.Clear With Sheets(ComboBox1.Value) ComboBox2.List = .Range("A2", .Range("A"...