Adriel Ortiz Mangia

[Hola Te paso la macro Sub evaluar() ' '***Por Adriel Ortiz ' rango = "A1:B10" ' rango ' For Each r In Range(rango) If r < 0 Then r.Value = 0 End If Next r MsgBox "Fin" End Sub Valora la respuesta para finalizar

[Hola Te paso la macro, suponiendo que tu listbox tiene 4 columnas Private Sub CommandButton1_Click() fila = 1 For i = 0 To ListBox1.ListCount - 1 Cells(fila, 1).Value = ListBox1.List(i, 0) Cells(fila, 2).Value = ListBox1.List(i, 1) Cells(fila,...

[Hola ajusta con esto a tu macro fila = 2 Total = 0 ' Do Cells(fila, 6).Select Total = Cells(fila, 6) + Total Total2 = Cells(fila, 7) + Total2 fila = fila + 1 Loop Until Cells(fila, 6) = "" Cells(fila, 6) = Total Cells(fila, 7) = Total2

[Hola te paso la macro, cambias el nombre de tus controles por el tuyo Private Sub ComboBox1_Click() 'x Elsamatilde 'Act. Adriel Ortiz ' Set h = Sheets("Hoja1") ' Hoja a buscar If ComboBox1 = "" And ComboBox1 = -1 Then Exit Sub 'se busca el código en...

[Hola hazlo así, suponiendo que lo haces en la celda A1 Private Sub CommandButton1_Click() Range("A1") = Range("A1") + TextBox1 End Sub Para finalizar hay 2 opciones Excelente o bueno

[Hola te paso para filtrar desde g2 Sub Macro2() ActiveSheet.Range("$A$2:$E$100").AutoFilter Field:=5, Criteria1:=Format(Range("G2"), "dd/mm/yyyy") End Sub A los títulos le pones en la segunda fila para cuando realices el filtro no se oculte

</Hola Muestra una imagen de la hoja o indica cual columna tiene fondo rojo

H o l a te paso la macro Private Sub CommandButton1_Click() Set h = Sheets("Hoja1") 'cambias el nombre de la hoja por el tuyo u = h.Range("A" & Rows.Count).End(xlUp).Row + 1 If u < 8 Then u = 8 ' registra apartir de la fila 8 ' h.Cells(u, "A") =...

H o l a Para el formulario sería esto. En mi ejemplo voy a cargar el rango dinámico A3 hasta ultima fila de la columna D Private Sub UserForm_Activate() Set h1 = Sheets("Hoja1") ComboBox1.RowSource = h1.Name & "!A3:D" & h1.Range("A" &...

H o l a Te paso la macro, crea los controles combox1 y Listbox en tu formulario. Private Sub ComboBox1_Change() '//Por Aortiz If ComboBox1 = "" Or ComboBox1.ListIndex = -1 Then MsgBox "seleccione un diagnóstico", vbInformation Exit Sub End If ' Set...