Respuesta
en
Microsoft Excel
y en 1 temas más
a
Macro que copie La cantidad indicada
Luego de esta línea: filx = Range("A2").CurrentRegion.Rows.Count + 1 Reemplaza la que sigue por esta otra: Range("A" & ActiveCell.Row & ":C" & ActiveCell.Row).Copy Destination:=Range("A" & filx & ":A" & filx + [E2] - 1) Sdos. Elsa...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Chequear si existe el nombre y mencioar con un MsgBox
Al hacer mi primer prueba dejando el campo producto vacío salta el mensaje ya que encuentra celdas vacías en col B. Por lo que debes agregar estas líneas antes de la evaluación: '''''''''''''' 'EM: si el campo texto queda vacío no avanza If txtProd =...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Incremento para una columna más
Está muy bien. Calculas en col D y G del mismo modo que lo haces en la otra hoja en col B y C. Entonces aprovecho para aligerarte aún más el código evitando así el uso de variables auxiliares: If I < 14 Or I > 17 Then 'solo se calcula en fila < 14 y...
Respuesta
en
Microsoft Excel
y en 3 temas más
a
Que error hay en esta macro que no funciona?
El primer error que noto es que dejaste un espacio delante de la letra D en la ruta. Filename:=" D:\PRACTICAS\" & Con eso ya debiera resolverse. Sino revisa que toda la ruta esté bien escrita. Además mira el contenido de la celda que es parte del...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Agregar una nueva hoja más en este conjunto de macros
Ahora sí quedó claro ;) Te estoy devolviendo el libro. Ya tiene las hojas actualizadas una vez por lo que los importes han cambiado. Te agregué un mensaje de confirmación antes de eliminar las copias. Si te parece innecesario (los mensajes también...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
¿Cómo puedo cambiar el color de las celdas en una hoja de Excel usando el ciclo For Each, Next en macros?
Así quedaría tu macro: Private Sub CommandButton1_Click() Dim Celda As Range For Each Celda In ActiveWorkbook.Sheets(1).Range("A1:G10") If Celda.Interior.ColorIndex = 47 Then Celda.Interior.Color = RGB(242, 242, 242) End If Next Celda End Sub Y no...
Respuesta
en
Microsoft Excel
y en 3 temas más
a
Para una macro que estoy realizando me pueden colaborar?
En mis pruebas ese código no da error. Si la hoja estuviese protegida si te indicaría un error (tipo 1004) por no poder pegar en el nuevo destino. Debieras dejar una imagen de tu hoja donde se vean los encabezados de filas y columnas. Y así poder...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
¿Cómo puedo resaltar celdas al seleccionar un optionbutton y que al desmarcarse la celda regrese al color que tenía, Excel ?
¿Y cómo se desmarca un option? Seguramente al seleccionar algún otro, por lo tanto no se ejecuta el evento Click del primero. Mirando tu imagen se me ocurre que están relacionados por fila. Entonces tenés que quitar el color al resto de la fila y...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Como puedo copiar con un botón en un formulario, lod Datos que se ecuentran en
Debes utilizar 1 variable diferente para el nro de fila en cada hoja. Eso te lo comenté en la consulta anterior. Ahora, en el código, estás enviando a la 2da hoja (FERTIGUNGSAUFTRAG_St_Bu) la siguiente información: a) Si TextBox16 = ZWL, envías...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Ocultar 6 hojas y mostrar varias dependiendo contenido de una celda
La vi un poco confusa la consulta ya que no queda claro si son 6, 8 o 10 hojas. Te dejo una macro de ejemplo que se coloca en el objeto HOJA donde tendrás la celda para seleccionar. Tendrás que completar los CASE según todos los textos que pueden...