Visual Basic

4.961 seguidores
Preguntar

Preguntas resueltas

Pregunta en y en 2 temas más de

Eliminar datos de un Textbox con el evento Keypress

Para Elsa Matilde: Estoy realizando una cotización, allí hay un listbox que permite observar en tiempo real cómo está quedando la cotización (la cotización es de 2 páginas), pero necesito que al elegir un producto del listbox, al presionar la tecla...
Pregunta en y en 1 temas más de

Macro que no imprima si hay celdas en blanco

Antes que nada feliz año a todos! Ahora si pasando a mi petición. Ando en busca de una macro que me imprima si hay datos en celdas especificas por ejemplo. En la celda U4 hay una letra y con eso basta para que imprima como se muestra en la imagen 2...
Pregunta en y en 1 temas más de

Macro para copiar a otra hoja ultima fila de rangos discontinuos

Tengo esta macro que me permite copiar los datos de la hoja1 a la hoja2 que funciona según lo requerido. Me gustaría modificarla para que copiara solamente las ultimas celdas de rangos discontinuos de la hoja1 y las pegara en las ultimas celdas...
Pregunta en y en 2 temas más de

Evitar el error 438 en un proceso de una rutina de calculo

Utilizo este proceso para calcular el PVP en un formulario continuo: En el momento que elimino la instrucción de cerrar el form: INTERMEDIOCALCULO dentro del: for .. Next me da el error 438. Lo intento cerrar porque me relentiza un poco el proceso...
Pregunta en y en 2 temas más de

Modificar Macro para que ejecute solo en una fila

Sub ExtraerDuplicados() Dim dic As Object Dim i As Long, j As Long, k As Long Dim a As Variant, b As Variant ' Set dic = CreateObject("Scripting.Dictionary") a = Range("A10:BXY" & Range("A" & Rows.Count).End(3).Row).Value 'RANGO A BUSCAR DUPLICADOS...
Pregunta en y en 2 temas más de

Actualizar macro para que se ejecute solo en la fila donde esta activa

Sub pegarB1() With Application .ScreenUpdating = False .Calculation = xlCalculationManual End With With Range("A10").CurrentRegion 'CELDA INICIAL f = .Rows.Count c = 10 'NUMERO DE CELDAS End With Set numeros = Range("A10").Resize(f - 1, c) 'CELDA...
Pregunta en y en 2 temas más de

Actualizar macro que concatena datos de rango.

Sub concatenar_permutaciones() Dim a As Variant Dim i As Long, j As Long, k As Long, m As Long, n As Long a = Range("A10:AD" & Range("A" & Rows.Count).End(3).Row).Value 'CELDA INICIAL Y FINAL A CONCATENAR ReDim b(1 To UBound(a, 1), 1 To 1000) For i =...
Pregunta en y en 2 temas más de

Función en campo fecha para generar número de factura

Antes que nada agradecer como siempre la ayuda recibida, qué sería de nosotros, los que no sabemos, sin los que aportan su conocimiento de manera desinteresada, de verdad, gracias! Tengo una tabla "PFS" donde recojo datos para hacer presupuestos y...
Pregunta en y en 2 temas más de

Problemas de actualización tabla excel a listbox

Quisiera ver si me pueden ayudar en este caso: Al dar con el botón Guardar, ... No se actualiza automáticamente en el listbox indico el código siguiente para su pronta ayuda....
Pregunta en y en 2 temas más de

Ajuste de formulario en access

Tengo una duda que no se cómo solucionar, he creado una base de datos access en mi ordenador, que contiene varios formularios, menús, etc. El problema es que cuando intento hacerla funcionar en otros ordenadores con pantallas y resoluciones...

Suscríbete RSS