Respuesta
en
Microsoft Excel
y en 2 temas más
a
Se puede abrir un formulario anexo mediante un msgbox
La respuesta a tu pregunta es si, esta es la instrucción yesnon = MsgBox("este producto no existe quiere crearlo?", vbYesNo, "aviso") If yesnon = 6 Then UserForm2.Show lo pones despues dentro del IF que valida la existencia del producto, si no existe...
Respuesta
en
VBA
y en 3 temas más
a
Buscar y reemplazar en una cadena de texto
Prueba este código Sub BUSCA_Y_REEMPLAZA() Set H1 = Worksheets("HOJA1") Set H2 = Worksheets("HOJA2") MATRIZ = H1.Range("A1").CurrentRegion R = H1.Range("A1").CurrentRegion.Rows.Count ULTIMO = Range("A" & Rows.Count).End(xlUp).Row For I = 2 To R With...
Respuesta
en
Microsoft Excel
y en 4 temas más
a
Macro para buscar dato moverlo de columna y buscar en la siguiente fila
Prueba esta macro, tecleas la palabra en el inputbox, la macro la busca en la columna A y si la encuentra pasa todas las coincidencias a la columna B Sub copiar_datos() Dim funcion As WorksheetFunction Set funcion = WorksheetFunction Set datos =...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
¿Cómo puedo enviar datos de un libro a otro utilizando un ciclo For?
Prueba esta macro busca todas las a en la columna DE en un solo paso sin necesidad de ciclos for y los transfiere al libro prueba 2, cambiando la a por aa. Sub transferir_datos() Set datos = Range("d1").CurrentRegion With datos .Sort...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Hallar y Extraer valor con longitud variable
La cadena tiene una cualidad que puede ser usada sin importar el ancho de la cadena y es esta "tt=219.00000" dentro de este texto esta "tt=" que en ninguna otra parte de la cadena se repite, así que con esa base arme la siguiente fórmula, y listo el...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Trasladar valor de un combobox a una celda a través de un CommandButton
Para hacer eso necesitas tener abiertos los tres formularios al mismo tiempo, yo lo haría así en el botoncommand del formulario inicio pondría el siguiente código, cada instrucción manda llamar al valor de los combobox de las páginas secundarias y...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro para borrar caracter y copiar el resultado en otra celda
Aqui esta la macro Sub ellimina() Dim datos As Range Set datos = Range("a1").CurrentRegion With datos r = .Rows.Count For i = 2 To r nombre = .Cells(i, 1) Final = .Cells(i, 2) <> Empty derecha = UCase(Left(nombre, 2)) = "L5" If derecha Then largo =...
Respuesta
en
Microsoft Excel
a
Cómo obtener el máximo y el mínimo por día de una tabla de datos en “vertical”
Prueba las siguientes fórmulas
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Contador para generar folios consecutivos con letras y números
Esto hace la macro cada que introduces un cliente en la la fila de la celda B, la macro que esta abajo la copias y la pegas en el modulo vba de la hoja clientes, una vez que tecleas el cliente y das enter en automatico la amcro le asigna un numero...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Valor sin punto de mil pero con punto decimal
Prueba con esta macro Sub ValorFacSinIva() Dim suma As Double Dim valornuevo As String Dim VN As String Set h1 = Worksheets("hoja1") suma = Round(WorksheetFunction.Sum(h1.Range("p11:p10")), 0) VN = Format(suma, "0.00") MsgBox VN End Sub