Dante Amor

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

Prueba la siguiente fórmula: =SI(Y($B$21<>0,$B$21<$B$8,$D$21>=0,O($H$21=0,$H$21<$B$8)),"Bajada", SI(Y($B$21<>0,$B$21<$B$8,$D$21>=0,$H$21>$B$8),"Mixta", SI(Y(O($B$21=0,$B$21>$B$8),$D$21=0,O($H$21=0,$H$21>$B$8)),"Subida","No definido"))) Nota: Cambia...

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.

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

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

Recomendación. Nombra tus textbox del 1 al 10 de la siguiente manera: TextTari_1 al TextTari_10 TextCant_1 al TextCant_10 TextRend_1 al TextRend_10 TextCost_1 al TextCost_10 TextPorc_1 al TextPorc_10 Pon el siguiente código en tu botón Calcular:...

H o l a y bienvenido a TodoExpertos! Realiza lo siguiente: 1. Selecciona las celdas donde quieres el formato. En el siguiente ejemplo seleccioné las celdas de C2 a E7. Nota: no incluí en la selección la columna B, porque la columna B no tiene una...