Dante Amor

Pon lo siguiente en un botón para ir a la hoja2 Sub IrHoja() 'Por.Dante Amor If [D10] = "" Then MsgBox "Favor completar la celda D10" Exit Sub End If If [D12] = "" Then MsgBox "Favor completar la celda D12" Exit Sub End If ' Sheets("Hoja2").Select...

H o l a: Tienes pendiente valorar esta respuesta: ¿Cómo identificar la posición de la pantalla en donde hay un cambio de página en la impresión de excel, con código vba? ¿El combo es control de activex que pusiste en la hoja o es un combo de userform?

Te anexo el código para buscar un valor en el rango que pusiste. Cambia 123 por el valor que vas a buscar En la macro te puse un ejemplo para escribir en la fila encontrada, columna G "algún dato": Sub BuscarFila() 'Por.Dante Amor num = 123 Set r =...

H o l a: Quedaría así para enviar la hoja "OC" como PDF: Sub Enviar() hoja = "OC" correo = "xxxxxxxxxxxxx" passwd = "xxxxxxxxx" ' Application.DisplayAlerts = False Application.ScreenUpdating = False ruta = ThisWorkbook.Path & "\" nombre =...

H o l a: Si solamente tienes un punto y después del punto van 2 dígitos, entonces así: Sub Reemplazar() x = ".30" Selection.Replace What:=".??", Replacement:=x, LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _...

H o l a: El error es porque esta variable "cbm_DL" tienes un texto, entonces con CDBL(cbm_DL) quieres convertir un texto a número, por eso te envía el error. Solamente tienes que poner esto: Set B = R.Find(cbm_DL, LOOKAT:=xlWhole) Si no encuentra el...

H o l a: Necesito adaptar un par de macros en tu archivo. Podrías enviarme tu archivo. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Liizzii Liizziie” y el título de esta pregunta.

H o l a: Tengo algunas dudas. ¿Siempre van a ser las letras "MB" "CS" y "CN"? ¿Qué va en la columna A? ¿Qué va en la columna B? ¿Cuántas veces quieres que se repitan las series de 3?

H o l a: Prueba lo siguiente: Sub LeerCorreo() 'Por.Dante Amor 'Fuente: http://stackoverflow.com/questions/8322432/using-visual-basic-to-access-subfolder-in-inbox 'fuente: http://www.snb-vba.eu/VBA_Outlook_external_en.html Dim olApp As...

H o l a: Revisa en el menú de VBA, herramientas, Referencias. Si aparece alguna referencia con la palabra "FALTA", desmarca la casilla y prueba nuevamente. sal u dos