Jump to content

All Activity

This stream auto-updates     

  1. Past hour
  2. También valdría, o eso creo: Sub ExtraerDatosNOfacturar() Dim Fila As Long For Fila = 3 To Hoja1.Range("A" & Rows.Count).End(xlUp).Row If Hoja1.Range("AA" & Fila) = "NO SE REMITE" And _ Not Hoja1.Range("AF" & Fila) = "NO VENDIDAS" Then Hoja1.Rows(Fila).Copy _ Hoja2.Rows(Hoja2.Range("A" & Rows.Count).End(FilalUp).Row + 1) Hoja1.Rows(Fila).Delete Fila = Fila - 1 End If Next End Sub
  3. Today
  4. no me deja meter la formula : =NSHORA(HORA((Resumen!C5)), MULTIPLO.SUPERIOR(MINUTO((Resumen!C5),"0:15")
  5. Hola @Antoni, estoy muy agradecido por tu respuesta y tiempo. Doy por terminado el tema Saludos.
  6. Yesterday
  7. Buenas tardes. Tengo una hoja que ordena unos números del 0 al 9, desde la columna A hacia las siguientes, B , C. etc. Es un juego donde un número predefinido en la LINEA 1, indica que el número anterior IGUAL, ya debe desaparecer de la lista, de la posición de la columna anterior. Hice una macro que modifica los formatos según el número de la celda, produciendo el efecto que se puede mirar en el ejemplo que adjunto del archivo ARCOIRIS.XLSM. Necesito ayuda para modificar tres cuestiones muy difíciles para mí. 1.- Que la macro trabaje únicamente con los números de la línea 1, y no sea necesario que estén ubicados en la columna A, (ver ubicación en el archivo). 2.- Al final la macro por defecto copia EL 0 y mueve los demás números. (Ignoro porqué lo hace, (es un error, no debe hacerlo y se debe eliminar.). 3.- No he podido hacer que el número que salta a la línea 1 de la columna anterior, en su última ubicación, tenga el formato de FONDO NEGRO. Saludos y gracias. MP ARCOIRIS.xlsm
  8. Buenas tardes, Estoy utilizando esta fórmula =NSHORA(HORA(E2), MULTIPLO.SUPERIOR(MINUTO(E2), 15), 0), para redondear hacia arriba los minutos y horas y me da error al meterla en la excel, a ver si alguien me ayuda a ver como lo hago : EJEMPLOS si : 02:52 me devuelva 03:00, si 01:12 me devuelva 01:15, si 01:23 me devuelva 01:30, si 01:34 me devuelva 01:45. muchas gracias por anticipado.
  9. Hola No he descargado tu archivo, pero la línea que aquí numeras como 2, cámbiala y déjala así: Workbooks.Open Filename:="\\Pcmadre\EMPRESA\Documentos\Internos\Caja\" & AÑO & "\" & MES & "\MOVIMIENTOS DE CAJA " & DIA & "-" & MES & "-" & Mid(AÑO, 3, 2) & ".xlsx", ReadOnly:=True Workbooks.Open Filename:="\\Pcmadre\EMPRESA\Documentos\Internos\Caja\" & AÑO & "\" & MES & "\MOVIMIENTOS DE CAJA " & DIA & "-" & MES & "-" & Mid(AÑO, 3, 2) & ".xlsx", ReadOnly:=True Comentas Abraham Valencia
  10. Sub LinkToResumen() Application.ScreenUpdating = False For Each hoja In Sheets If Not hoja.Name = "RESUMEN" Then Set cliente = Sheets("RESUMEN").Columns("A").Find(hoja.Name, , , xlWhole) If Not cliente Is Nothing Then hoja.Hyperlinks.Add Anchor:=hoja.Range("A1"), Address:="", _ SubAddress:="RESUMEN!" & cliente.Address, TextToDisplay:="RESUMEN" End If End If Next Application.ScreenUpdating = True End Sub
  11. Sub CopiarBase() Dim Fila As Long Dim no As Range Application.ScreenUpdating = False Set no = Hoja2.Columns("A").Find(Hoja1.Range("A4"), , , xlWhole) If Not no Is Nothing Then Fila = no.Row Else Fila = Hoja2.Range("A" & Rows.Count).End(xlUp).Row + 1 End If Hoja2.Range("A" & Fila) = Hoja1.Range("A4") Hoja2.Range("B" & Fila) = Hoja1.Range("B4") Hoja2.Range("C" & Fila) = Hoja1.Range("C4") Hoja2.Range("D" & Fila) = Hoja1.Range("D4") Hoja2.Range("E" & Fila) = Hoja1.Range("E4") Application.ScreenUpdating = True End Sub
  12. Pon un ejemplo concreto del procedimiento a efectuar y de los resultados a obtener, porqué no se entiende lo que quieres hacer.
  13. Buenos dias. Necesito generar unas etiquetas de productos para imprimirlas y me baso en un fichero .csv o xls que contiene los datos a imprimir (codigo, descripcion, pvp, etc) y la cantidad de unidades que entran que seria igual al numero de etiquetas a imprimir. Necesitaria una macro modulo que leyera ese valor numerico variable y copiara esa misma fila en otro sitio que podria ser otra hoja o idealmente en la misma hoja adjunto un ejemplo de fichero a tratar. muchas gracias SANTINI 1967_E.csv
  14. No dices que celdas, no dices que hojas, no subes un archivo con un ejemplo de lo que quieres. Así es imposible ayudarte.
  15. A ver esto Sub ActualizaExistencias() Dim c As Range, Registros As Object Dim celda On Error Resume Next Set Registros = CreateObject("Scripting.Dictionary") Set c = Hoja3.Range("B3:B" & Hoja1.Range("B" & Rows.Count).End(xlUp).Row) For Each celda In c With celda If Len(.Offset(, 4)) <> 0 And (.Offset(, 5) - .Offset(, 4) <> 0) Then Registros.Add .Text & .Offset(, 1).Text & .Offset(, 2).Text, .Offset(, 6).Text End If End With Next Set c = Hoja1.Range("B3:B" & Hoja1.Range("B" & Rows.Count).End(xlUp).Row) For Each celda In c With celda If Registros.Exists(.Text & .Offset(, 1).Text & .Offset(, 2).Text) Then .Offset(, 4) = Registros(.Text & .Offset(, 1).Text & .Offset(, 2).Text) Else .Offset(, 4) = 0: .Offset(, 3) = "": .Offset(, 2) = "" End If End With Next Set Registros = Nothing MsgBox "Existencias actualizadas" End Sub
  16. Hola, muchas gracias por tu respuesta me funcionó como lo esperaba. Obviamente la celda A1 la referencié a B1 para que pueda continuar la fòrmula. Hay la posibilidad de hacerla con una macro? Gracias nuevamente.
  17. Last week
  18. copiar pega esa formula Luis Antonio a ver si te funciona =SI(IZQUIERDA(B2,1)="T",B2,A1) saludos isidrod
  19. Buena tarde, es un gusto saludarles nuevamente. Acudo a solicitar su apoyo, dado que no he logrado que una macro que tengo, realice lo que necesito. Resulta que necesito que tengo un archivo con dos hojas: INICIO y GUARDAR. En la fila 4 de la hoja INICIO deseo incluir diferentes valores, los que posteriormente, deseo que se copien y peguen en la hoja GUARDAR, sin embargo, necesito que previo a guardar, la macro verifique que la información no haya sido guardada previamente. Para ello, incluyo un valor en la celda F1 ó A4 de la hoja INICIO, y deberá comprobar que éste número no se encuentre en ninguna celda de la columna A de la hoja GUARDAR. Si la macro detecta que ya había sido guardada con anterioridad, entonces deberá sobreescribir la información en la fila correspondiente. Si la macro detecta que no se ha guardado con anterioridad, entonces debe pegar los valores en la primer fila vacía que se encuentre en la columna A de la Hoja Guardar. Anexo un archivo de muestra donde incluyo la macro que estoy trabajando pero que no logro que funcione. Si me pudieran ayudar, se los agradecería mucho. Saludos cordiales copiarypegar.xls
  20. Hola a tod@s. Agradezco de antemano su tiempo y respuesta a los siguiente. En la hoja "RESUMEN" se encuentran los códigos de clientes y en las siguientes hojas se nombran cada código de cliente. Entonces lo que se requiere es que, por ejemplo, que en la hoja "A 030-028" se crea un hipervínculo hacia la hoja "RESUMEN", PERO con dirección hacia la celda A4 ya que es el nombre de la hoja "A 030-028". Y así sucesivamente con las demás hojas. Lo haría manualmente pero son mas de 800 hojas. Creo que esto solo se puede lograr con Macros, pero si hay la posibilidad de realizar sin ello estaría perfecto. Saludos PRUEBA.xlsx
  21. 1. desactiva la protección de la celda en las cuales desea permitir la escritura. 2. activa la protección de la hoja, quedando habilitadas para escritura solo las celdas a las cuales se les quito el bloqueo.
  22. Estimados amigos, Buenas tardes, por favor alguien me podría dar una mano con una fórmula/macro para recorrer una columna validando la columna de al lado. Por ejemplo en la columna A tengo que escribir la fórmula dependiendo de la columna B Validando que mientras no exista en columna b otra tienda en columna a quede el mismo nombre de tienda así más o menos: y que pueda quedar así dependiendo de la columna b, puede haber más días. De antemano muchas gracias por su ayuda. Adjunto archivo. https://drive.google.com/file/d/1y7ux28jiCreITudkEmtS8rqbAAT7ARRL/view?usp=sharing
  23. Hago una aclaración que no me deja editar aun: AL OBTENER EL APPCRASH agregué un msgbox, antes de la linea que explota, que me mostrara los valores de las variables (STR(DIA/MES), SALDOANT, ENTRADAS, SALDO, SALIDAS, CHQ) antes de pegarlos en las celdas indicadas, pero me sale nuevamente el appcrash, por lo que quizas es un problema de memoria, saturada al agregar la variable workbook, quisiera saber como liberar la memoria de esa variable antes de continuar.
  24. VBuenas tardes, Le comento mi inquietud a la comunidad haber si alguno sabria como ayudarme. (Subo adjunto el archivo para poder observar mejor) (primero pego el appcrash: APPCRASH Application Name: EXCEL.EXE Application Version: 14.0.4756.1000 Application Timestamp: 4b9c08e8 Fault Module Name: StackHash_54f8 Fault Module Version: 6.1.7600.16385 Fault Module Timestamp: 4a5bdadb Exception Code: c0000374 Exception Offset: 000c283b OS Version: 6.1.7600.2.0.0.256.48 Locale ID: 11274 Additional Information 1: 54f8 Additional Information 2: 54f8d18223689b3a6e7f554de6059584 Additional Information 3: 931a Additional Information 4: 931a01880ea098b34b0a35555eaa7a8a ) En mi trabajo tengo archivos de caja, uno por cada dia laboral, estos estan en carpetas tipo "arbol" (una carpeta cada año, dentro de estas una carpeta cada mes, y dentro de estos un archivo identico cada día). Quero saber cada dia que dinero entro y que dinero salio, entonces me hice una hoja que recorrerá todos los archivos de todos los dias, guardando la información buscada. Todo andaba bien hasta que me encontré con que una caja estaba abierta, la estaban usando, entonces me salio un error. Para evitarlo indique abrir el archivo en solo lectura (y que siquiera me pregunte si lo quiero en solo lectura al estar en uso): Yo tenia el codigo para abrir así: 1) Workbooks.Open ("\\Pcmadre\EMPRESA\Documentos\Internos\Caja\" & AÑO & "\" & MES & "\MOVIMIENTOS DE CAJA " & DIA & "-" & MES & "-" & Mid(AÑO, 3, 2) & ".xlsx") y queria agregarle la 4ta condicion "ReadOnly" como true: 2) Workbooks.Open ("\\Pcmadre\EMPRESA\Documentos\Internos\Caja\" & AÑO & "\" & MES & "\MOVIMIENTOS DE CAJA " & DIA & "-" & MES & "-" & Mid(AÑO, 3, 2) & ".xlsx", , True) Pero al poner le codigo 2) me salta el msgbox "Error de compilación, se esperaba: = " aca yo supongo que me estaba pidiendo el uso de una variable del tipo "Excel.workbook", por lo que creo una variable ("XLSLibro") definida de este tipo, y paso a manejar la apertura y su cierre así: 3) Set XLSLibro = Workbooks.Open("\\Pcmadre\EMPRESA\Documentos\Internos\Caja\" & AÑO & "\" & MES & "\MOVIMIENTOS DE CAJA " & DIA & "-" & MES & "-" & Mid(AÑO, 3, 2) & ".xlsx", , True) 4) XLSLibro.Close (False) (al cerrar workbook no guarda) El problema es que el codigo corre bien hasta esa instrucción, pero cuando sigue y quiere ir al libro propio a pegar los resultados : ThisWorkbook.Worksheets("Hoja1").Activate ActiveSheet.Range("C7").Select ActiveCell.Offset(i - FECHAINIC, 0).Value = Str(Day(i) & "/" & Month(i)) 'ACA SALTA EL APPCRASH ActiveCell.Offset(i - FECHAINIC, 1).Value = SALDOANT(Day(i), Month(i)) ActiveCell.Offset(i - FECHAINIC, 2).Value = ENTRADAS(Day(i), Month(i)) ActiveCell.Offset(i - FECHAINIC, 3).Value = SALDO(Day(i), Month(i)) ActiveCell.Offset(i - FECHAINIC, 4).Value = SALIDAS(Day(i), Month(i)) ActiveCell.Offset(i - FECHAINIC, 5).Value = CHQ(Day(i), Month(i)) Lo que intuyo es que estoy usando mal la variable "excel.workbook" y que al cerrarla no lo hago bien, o nose porque al querer usar otra workbook me sale este error. Nada de esto pasaba al usar los libros sin ninguna variable, pero lo q si pasaba es que me preguntaba por el solo lectura. Si alguien no sabe porq el appcrash, pero sabe como evitar los cuadros de "solo lectura" cuando estan en uso los archivos, o directamente como usar libros como solo lectura y sin guardar, bienvenido sea. Saludos! Gracias. Gantrax. 2019 EXTRACTO CAJA.xlsm
  25. Buenas tardes: ¿Se puede proteger una celda que tiene una fórmula en Excel?. Solo quiero proteger celdas en concreto no la hoja entera porque la usan varias personas.... ¿Es posible?. Gracias!!
  26. me refiero a que haciendo el cambio en linea que me indicas, los registros quedan en el mismo lugar y lo que requiero es que los registros que quedan en ceros, deben desaparecer y los registros con existencias, deben ocupar el lugar correspondiente.
  27. Hola buenas tardes!!!! Quería saber si alguien me pudiese ayudar. Necesito hacer una macro que me copie tres celdas de varias hojas, pero estas están en distintas posiciones, es decir no son fijas, y que luego me las copié en unas columnas de una hoja resumen (estas si irían fijas). Gracias de antemano.
  1. Load more activity
×
×
  • Create New...

Important Information

Privacy Policy

Ayuda Excel - Madrid, Madrid, ES - Valorada por 5112 personas - Aprender Excel - Total: 4.7 / 5