Dante Amor

H o l a ermacia, jaja no para nada, no soy el creador, el creado es Josep Planells Alòs. Solamente soy un usuario que me gusta ayudar, me apasiona encontrar la mejor solución y empeñarme hasta encontrar la respuesta para que estén satisfechos....

Aquí otra opción a considerar: Sub test2() MsgBox [sum(A:A)] End Sub

Te recomiendo poner la operación en un botón. Si los valores están en el combobox, entonces podemos validar que realmente hay seleccionado un dato de cada combo. Prueba lo siguiente: Private Sub CommandButton1_Click() If ComboBox1.Value = "montar...

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

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