Dante Amor

H o l a: Quedaría así: =SI(B11="","",SI(ESNOD(consultav($B$11,Proveedores!$A$9:F809,3,0)),consultav($B$11,cliente!$B$8:$E$500,3,0),consultav($B$11,Proveedores!$A$9:F809,3,0)))

H o l a: Supongo que en la hoja1 celda B2 tienes el producto. Entonces, en la hoja1 en la celda A2, pon esta fórmula: =INDICE(Hoja2!A:A,COINCIDIR($B2,Hoja2!$B:$B,0)) Puedes utilizar la misma fórmula, pon la siguiente fórmula en la celda C2:...

H o l a: ¿Pero te envía un error? Puedes poner una imagen de la hoja1 de tu libro "solamente numero de pedido.xlsx". Ya probé la macro y sí toma el número de la celda A1, lo aumenta en 1, guarda en A1 el nuevo número y después lo pone en tu hoja8 En...

H o l a: Después de que estableciste el área de impresión, ya no es necesario hacerlo para el Pdf, solamente tienes que guardar la hoja como Pdf y tomará lo que hayas establecido para la impresión. Solamente agrega esta línea después de tu último End...

Te anexo la macro actualizada Private Sub CommandButton1_Click() 'Por.Dante Amor Application.ScreenUpdating = False Set h = Sheets("altas") u = h.Range("G" & Rows.Count).End(xlUp).Row + 1 If u = 5006 Then MsgBox "Se alcanzó el límite de 5000" Exit...

Tienes que poner en un commanbutton las instrucciones para pasar los datos a la hoja: Por ejemplo: Private Sub CommandButton1_Click() Set h = Sheets("altas") 'primera fila vacía de la columna A u = h.Range("A" & Rows.Count).End(xlUp).ro h.Cells(u,...

H o l a: Tienes que poner la macro en los eventos de la hoja1 Private Sub Worksheet_Activate() 'Por.Dante Amor Sheets(2).Visible = 0 Sheets(3).Visible = 0 End Sub Sigue las Instrucciones para poner la macro en los eventos de worksheet Abre tu libro...

H o l a: Te anexo la macro, no mencionaste en cuál fila de las hojas destino se tiene que poner las líneas, supongo que se tiene que poner en la siguiente fila disponible. Dim hojas, h2, cols Sub TraspasarDatos() 'Por.Dante Amor...

H o l a: Puedes poner una imagen de la "otra hoja", para ver cómo quieres poner los resultados. También dime cuáles son las columnas donde empiezan las tablas "F", "AF", etc. Y por último dime en dónde encuentro el nombre de la tabla: "e indicar a...

H o l a: Esta podría ser una opción, pon el siguiente evento en tu formulario Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) 'Por.Dante Amor If Not (KeyAscii >= 48 And KeyAscii <= 57) And Not KeyAscii = 46 Then KeyAscii = 0...