Jump to content

jeaa

Members
  • Posts

    159
  • Joined

  • Last visited

  • Country

    Peru

About jeaa

  • Birthday 09/24/1980

Profile information

  • Gender
    Hombre

Converted

  • Campos
    ,
  • Mi versión de Excel:
    0,2,4,5,6,7

Recent Profile Visitors

1,114 profile views

jeaa's Achievements

  1. Buenos dias, expertos nuevamente solicito su ayuda, lo que pasa es que tengo un formulario que funciona bien, cuando busco un codigo me muestra bien, pero si pongo otro codigo no cambia de imagenes. Adjunto el archivo REPORTES.rar
  2. Janlui, muchas gracias justo eso necesita funciona bien, disculpe si no fui muy claro al principio, pero bien una vez mas gracias
  3. Es hoja registro funciona bien solo la hoja pagos agregar una macro o desarrollar con funciones para que quede como lo mensione en la anterior por favor solo en la hoja pagos.
  4. Janlui, solo necesito una macro que me replique el monto las cantidades de veces de acuerdo a las cuotas y las fechas en la hoja pagos, asi como los ejemplos que esta en la tabla3 donde estan los meses Macro Neo.xlsm
  5. No solo quiero que que se copie el monto la cantidad de veces segun el numero de cuotas en las fecha que lo corresponde eso seria todo, en la hoja pagos hay una tabla por meses y años solo ahi que se repliquen segun las fechas y los numeros de cuotas.
  6. Janlui, el problema no esta en la hoja BD solamente en la hoja Pagos poner la macro lo que indica arriba, por favor gracias
  7. Buenas tardes expexto, recurro a su ayuda para pedir sus valiosas ayudas, se trata de una dos hojas primero la hoja registro donde registra los pagos desde la columna D en la hoja pagos trabajo muy bien, pero necesito hacer otra macro que me copie los montos dependiendo del numero de cantidades de cuotas y en la fecha donde lo corresponde en la table del lado derecho donde comienza en la columna K. Por favor agradecere mucho la ayuda. Adjunto el archivo. Macro Neo.xlsm
  8. Solo depende de la cantidad de bultos para que se imprima la catindad etiquetas, es como si al momento de imprimir lo pongo la catidad que quiero imprimir, pero en este caso son varios bultos con distintas cantidades de numero, no tada la hoja sino cada etiqueta de acuerdo al bulto si tendria otra idea seria genial mcuhas gracias, disculpe no tengo un modelo impreso.
  9. Buenos días, expertos necesito una ayuda en mi archivo en la hoja Etiquetas_1 hay formato de rótulos ese formato quisiera que se imprima las cantidad de veces de acuerdo a numero que representa en la columna bultos, cada rotulo representa a a un numero de bultos; balga la redundancia, lo que necesito es una macro que me imprimala cantidad de veces de cada rotulo de acuerdo el numero de bultos se puede cambien de numero o en otros no se puede poner ningun numero entonce tampoco imprimiria. Muchas gracias, esperando su ayuda por favor. Adjunto el archivo Rotulos-wings.xlsm
  10. Janlui, muy bueno funciona perfecto eso lo que necesitaba magnifico...
  11. Buenas tardes, expertos solicito una ayuda para concatenar dos columnas una de ellas es en cuanto a la fechas, lo que pasa es que la macro que tengo concatena muy bien, solo tengo un inconveniente con las fechas dicha columna (I) estas formateadas por ejemplo asi: Feb-20 pero al concatenar el resultado asi: O-2AA6220/09/2021, pero asi no quiero, me gustaria concatenar que salga asi: A-234RV44032 los 5 ultimos digitos son de la fecha, bueno asi me gustaria que quede, la macro que estoy usando es: Sub Concatenar() uFila = Range("H" & Cells.Rows.Count).End(xlUp).Row pFila = 1 For fila = pFila + 1 To uFila Range("O" & fila) = Range("H" & fila) & Range("I" & fila) Next fila End Sub Por favor si me podria dar una ayuda estare muy agradecido. Adjunto el archivo Consolidado.xlsm
  12. Antoni muchas gracias, eso lo que esperaba. Consegui también estas lineas codigo. Sub Rellenar() Dim uf, fila As Integer uf = Sheets("Consolidar").Range("A" & Rows.Count).End(xlUp).Row fila = 2 While fila <= uf If Sheets("Consolidar").Cells(fila, 2) = Empty Then Sheets("Consolidar").Cells(fila, 2) = "DIGITAL" End If fila = fila + 1 Wend End Sub
×
×
  • Create New...

Important Information

Privacy Policy