Dante Amor

La situación es la siguiente: El error te aparece en el comobo .cbo_estadoCG En las propiedades del combo tienes Style como 2-fmStyleDropDownList, eso significa que solamente puedes poner en el combo un valor que esté cargado en el combo:...

Supongo que en alguna parte de tu usesrform estás capturando la cantidad que vas a sacar, siendo así, entonces sustituye en el código "cantidad" por el nombre de tu control. Te anexo un código para realizar el descuento. Private Sub...

Realiza los pasos del siguiente enlace. Macro para combinar correspondencia según condiciones de una base de excel. Una vez que hayas logrado combinar la correspondencia entre excel y word pasamos a la parte del estado del cliente

Podrías explicarlo con imágenes

Copias la información de B1:B8 hasta n1:n8 (la n es la última columna con datos) Hay algunos datos que faltan por definir: - Cómo se llama la hoja origen, según la macro se llama "brecha" - Cómo se llama la hoja destino, según la macro se llama...

Te anexo un enlace con una macro para repartir aleatoriamente Repartir un Saldo hasta quedar en cero Revisa si puedes adaptar la macro a tus datos. Si quieres que te ayude a adaptar la macro deberás especificas dónde están tus datos y en dónde...

Haber si entendí. En el libro-origen tienes varios nombres. En cada nombre tienes un dato. Ejemplo: Libro: origen Nombre Dato "RutTitular" 30.686.957-X "NombreTitular" Manuel Zamora Lo que quieres es tomar cada dato de esos nombres y llevarlo al...

Te anexo la macro Sub Cronograma_Pagos() 'Por.Dante Amor Application.ScreenUpdating = False Range("E4:J" & Rows.Count).ClearContents numpagos = Range("C3") + 3 Range("E3:E" & numpagos).DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _...

Tengo que revisar toda la macro y ver cómo tienes tus datos en las hojas. Envíame tu archivo para actualizar tu macro. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Andres zu”

Te anexo el código actualizado Set h2 = Sheets("CREDITO") ' u = h2.Range("A" & Rows.Count).End(xlUp).Row numeros = Split(h2.Cells(u, "A"), "-") Select Case UBound(numeros) Case -1: nuevocod = 1 & "-" & "00000000" Case 0: nuevocod = Val(numeros(0)) +...