Adriel Ortiz Mangia

Te paso la macro Sub CopiarDatos() 'Por Adriel Ortiz Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") j = h2.Range("H" & Rows.Count).End(xlUp).Row + 1 For i = 3 To h1.Range("H" & Rows.Count).End(xlUp).Row If h1.Cells(i, "H") = "cerrado" Then...

H o l a prueba esto Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("K5:K34")) Is Nothing Then ' If UCase(Target.Value) = "ERROR" Then call Mandar_Correo2 End If ' End If End Sub Valora la respuesta para finalizar...

H o l a te paso un ejemplo de un formulario con 3 textbox Set h1 = Sheets("Hoja1") ' hoja donde se guardará los datos u1 = h1.Range("A" & Rows.Count).End(xlUp).Row + 1 ' captura la ultima fila para vaciar los datos a la hoja h1.Cells(u1, "A") =...

H o l a ¿Pero cuál es el rango a seleccionar? Puedes mostrar unos ejemplos

H o l a ¿Y qué error te sale?

H o l a Te paso la macro act. asumiendo que borrará el rango donde copia los datos Sub BuscarMatriculas() 'Por.Dante Amor Application.ScreenUpdating = False Application.DisplayAlerts = False Set l1 = ThisWorkbook Set h1 = l1.Sheets("hoja1") ' If...

H o l a prueba con esto Private Sub calcular_Click() cbm1 = (Val(l1) * Val(a1) * Val(aa1) * Val(b1)) / 1000000 cbm2 = (Val(l2) * Val(a2) * Val(aa2) * Val(b2)) / 1000000 cbm3 = (Val(l3) * Val(a3) * Val(aa3) * Val(b3)) / 1000000 cbm4 = (Val(l4) *...

Muestra una imagen de la hoja de tus datos

H o l a te paso la macro Private Sub Worksheet_Activate() Set h = Sheets("BD") Set h2 = Sheets("Ingresos") u = h.Range("A" & Rows.Count).End(xlUp).Row contar = WorksheetFunction.Count(h.Range("A3:A" & u)) h2.Range("E9") = "AU0000" & contar + 1 End...

Muestra el código que tienes en los botones