Respuesta
en
Microsoft Excel
y en 3 temas más
a
Se Repite una Función Varias veces Macros Excel
Yo lo resumiría así: Private Sub txtcodigo_AfterUpdate() If modFormulario.consultarProducto(txtcodigo, 2) = "No existe" Then MsgBox "El codigo ingresado no existe", vbCritical, "Resultado" Exit Sub End If txtdescripcion =...
Respuesta
en
Microsoft Excel
y en 3 temas más
a
Devolver 2 valores de una función Macros Excel
Las funciones solamente regresan un dato. En este caso te regresa el dato de una celda. Puedes concatenar los dos datos, regresar los 2 datos y después separarlos, esto es más laborioso. O puedes enviar como parámetro la columna que quieres...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro para guardar hojas en excel como pdf
En la variable Ruta ya estás poniendo la diagonal al final de la ruta: Ruta = "C:\Users\Pérez Abisaí\OneDrive - M8\Documents\Hoy\" Después cuando concatenas la ruta y el archivo, estás poniendo otra diagonal Hoja.ExportAsFixedFormat Type:=xlTypePDF,...
Respuesta
en
Visual Basic
y en 2 temas más
a
Búsqueda de valores en un rango determinado (Visual Basic Excel)
Te anexo el código para buscar Private Sub CommandButton1_Click() Label1.Caption = "" valor = TextBox1.Value If valor = "" Then MsgBox "Captura un folio" TextBox1.SetFocus Exit Sub End If If IsNumeric(valor) Then valor = Val(valor) Set b =...
Respuesta
en
Microsoft Excel
y en 3 temas más
a
MACRO para insertar un número de filas que el usuario indique al final de una tabla EXCEL
Si la tabla fue creada con la opción Insertar/Tabla, entonces ejecuta la siguiente macro: Sub Macro1() 'Por Dante Amor num = InputBox("Cuantas filas desea insertar?", "INSERTAR FILAS EN TABLA") If num = "" Or Not IsNumeric(num) Then Exit Sub End If...
Respuesta
en
Microsoft Excel
y en 3 temas más
a
Método para descontar caracteres de un valor máximo a medida que escribo en una celda EXCEL y poder saber caracteres restantes
Puedes limitar la longitud de lo capturado, pero no cuando estás capturando el texto. Podrías capturar el texto en un Control deTextbox puede ser en uno Control ActiveX o de un UserForm y con la propiedad del Textbox limitar la cantidad de...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Como hacer un For que me recorra una columna de un libro con una columna de otro libro
[H o l a María: Buena la explicación y el ejemplo, solamente te faltó mencionar en dónde se va a pegar el código. En tu ejemplo, se copia el código 1234, pero en dónde quieres que lo ponga. Y otro detalle, en tu explicación mencionas que el valor...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Contar registros únicos con varias condiciones
Para encontrar los únicos necesitamos utilizar otra columna. En la columna D, en la celda D2, pon la siguiente fórmula: =CONTAR.SI(B2:$B$16,B2) Cambia el 16 por la última fila con datos. Ahora pon la siguiente fórmula en G4...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro para encontrar celda vacía y pegar valor de celda de arriba
Te anexo la macro Sub Copiar_Valor_De_Arriba() 'Por Dante Amor For i = 2 To Range("D" & Rows.Count).End(xlUp).Row If Cells(i, "B").Value = "" Or Cells(i, "B").Value = 0 Then Cells(i, "B").Value = Cells(i - 1, "B").Value End If If Cells(i, "C").Value...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro para enviar un archivo adjunto diferente a diferentes destinatarios
Lo que pasa es que estás poniendo en esta línea el mismo dato de la celda "C2" . Attachments. Add Range("C2").Value Para enviar el archivo correspondiente a cada fila , cambia la línea por esta: .Attachments.Add Range("C" & cell.row).Value[Si te...