Respuesta
en
Microsoft Excel
y en 2 temas más
a
¿Cómo hago para añadir datos de un listbox a varias hojas dependiendo de una condición?
Prueba de la siguiente manera: Dim sh1 As Worksheet, sh2 As Worksheet Dim lr1 As Long, lr2 As Long, j As Long Set sh1 = Sheets("RVD") Set sh2 = Sheets("Cartera") lr1 = sh1.Range("B" & Rows.Count).End(3).Row + 1 lr2 = sh2.Range("B" &...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro para insertar una fórmula dependiendo de contenido de una celda
Prueba la siguiente: Sub InsertarFormula() Range("A5:A" & Range("A" & Rows.Count).End(3).Row).SpecialCells(xlCellTypeConstants).Offset(, 5).Formula = _ "=IF(E5-TODAY()<0,""CADUCADO"",IF(AND(E5-TODAY()>=0,E5-TODAY()<=15),""POR CADUCAR"",""LIBRE...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro que haga autofiltro de lo que escriba en un textbox
Prueba lo siguiente: Private Sub TextBox1_Change() Dim i As Long, j As Long Dim a As Variant, b As Variant, c As Variant Dim existe As Boolean Application.ScreenUpdating = False If Hoja1.AutoFilterMode Then Hoja1.AutoFilterMode = False a =...
Respuesta
en
Microsoft Excel
y en 3 temas más
a
Rengo dos textbox que necesito que sean igual a cero
¿Qué son falsos datos? ¿En cada textbox solamente pueden poner ciertos datos? Puedes cambiar los textox por combobox y validar que solamente elijan alguno de los datos precargados en los combos.
Respuesta
en
Microsoft Excel
y en 2 temas más
a
¿Cómo puedo programar un rango de celdas mutuamente excluyentes por renglón?
Pon el siguiente código en los eventos de tu hoja: Private Sub Worksheet_Change(ByVal Target As Range) Dim rng As Range, c As Range, p As Variant ' Set rng = Intersect(Target, Range("A5:E" & Rows.Count)) If Not rng Is Nothing Then For Each c In rng p...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
VBA Eliminar caracteres de una celda dependiendo del numero de caracteres
Prueba la siguiente: Sub EliminarCelda() Dim i As Long Application.ScreenUpdating = False For i = Range("AZ" & Rows.Count).End(3).Row To 1 Step -1 If Len(Range("AZ" & i).Value) <= 5 Then Range("AZ" & i).Delete xlUp Next End Sub
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro BuscarV devuelve varias columnas
buscarv(A2;tablabase;1;0) Tu primer fórmula tiene la columna 1, la columna 1 regresa el mismo valor que estás buscando, ¿realmente quieres eso? Puedes poner la siguiente fórmula en B2 y copiar hacia la derecha. En automático incrementa el número de...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Como Crear Textbox Copia y Pega
Responde lo siguiente y en este orden: 1. ¿Qué vas a poner en el textbox? ¿Es texto o números? 2. En dónde va a buscar, ¿en cuál hoja y en cuál columna? 3. ¿En dónde va a pegar? ¿Siempre en la fila 4? ¿O después de la ultima fila con datos?
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro que al ser ejecutada primero me pida una contraseña y si acierto ejecuta la macro y sino envía mensaje
Prueba lo siguiente: Sub Macro1() Dim cod As Variant, f As Range cod = Application.InputBox("Entra el código") If cod = "" Or cod = False Then Exit Sub Set f = Sheets("Constantes").Range("A:A").Find(cod, , xlValues, xlWhole, , , False) If Not f Is...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macros para eliminar hojas vacías
Prueba la siguiente: Sub BorrarHojas() Dim sh As Worksheet Application.DisplayAlerts = False For Each sh In Sheets If WorksheetFunction.CountA(sh.UsedRange) = 0 And _ WorksheetFunction.Count(sh.UsedRange) = 0 Then sh.Delete End If Next End Sub