Adriel Ortiz Mangia

H o l a prueba esto y me comentas Private Sub Worksheet_Change(ByVal Target As Range) Set h1 = Sheets("Datos") Set h2 = Sheets("Captura") Set b = h1.Range("A7:A999999").Find(What:=h2.Range("R7").Value, LookAt:=xlWhole) If Not b Is Nothing Then MsgBox...

H o l a te paso la macro que genera el código y pasa los datos de los textbox Private Sub CommandButton1_Click() Set h1 = Sheets("Hoja1") ' hoja donde se guardará los datos ' u1 = h1.Range("A" & Rows.Count).End(xlUp).Row + 1 j = h1.Range("A" &...

H o l a te paso la macro nomb = Textbox12 & "_" & h.Name & "_" & TextBox13 h.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=Ruta & nomb & ".pdf", _ Quality:=xlQualityStandard, IncludeDocProperties:=True, _ IgnorePrintAreas:=False,...

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 ¿Pero cuál es el rango a seleccionar? Puedes mostrar unos ejemplos

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 el código que tienes en los botones

H o l a Siga esta instrucción para limitar al textbox Valora la respuesta para finalizar saludos!

H o l a te paso la macro Sub copiar() 'por.Adriel ortiz Set h1 = Sheets("hoja1") Set h2 = Sheets("hoja2") j = h1.Range("C" & Rows.Count).End(xlUp).Row If j > 1 Then j = 5 For i = 5 To h1.Range("C" & Rows.Count).End(xlUp).Row u = h2.Range("B" &...