Dante Amor

Suponiendo tus datos de la siguiente manera: Utiliza la siguiente fórmula: =SI(Y(IZQUIERDA(A2)= "T";DERECHA(A2)="A");B2*1.25;B2*1.2)

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" &...

Prueba lo siguiente: Option Explicit Private Sub CommandButton1_Click() Dim Valor As Variant Dim f As Range ' 'Validamos si el valor es numérico. Valor = Me.TextBox1.Value If IsNumeric(Valor) Then Valor = CDbl(Valor) Set f =...

Qué tienes en las celdas D5 a G5, ¿es una celda combinada? ¿Tienes el texto "Enero" o es una fecha con formato?

Pusiste una "s" de más, debe ser: Dim h1 As Worksheet

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...

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 =...

Prueba la siguiente y me comentas: Sub CopiarDatos() Range("A1:F1").Copy Range("A" & Rows.Count).End(3)(2) End Sub

Pon el siguiente código en los eventos de tu libro. Cambia la carpeta y el nombre del archivo por tus datos. Private Sub Workbook_Open() If Dir("C:\trabajo\books\libro2.xlsx") = "" Then MsgBox "No existe el archivo" ThisWorkbook.Close False End If...

¿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.