Dante Amor

Revisa si esto te ayuda: Sub ExportarHojaTxt() 'Por.Dante Amor Application.DisplayAlerts = False Application.ScreenUpdating = False Sheets("Hoja1").Copy ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & "Prueba.txt", FileFormat:=xlText...

Prueba lo siguiente: Sub test() Dim uf As Long uf = Range("B" & Rows.Count).End(xlUp).Row [C2] = [C1] Range("C2").AutoFill Destination:=Range("C2:C" & uf), Type:=xlFillSeries End Sub

Puedes utilizar el método Find para buscar en una hoja y en una columna si existe cierto dato. Sub test() Dim f As Range, dato As String dato = "el producto" Set f = Sheets("Hoja1").Range("A:A").Find(dato, , xlValues, xlWhole) If Not f Is Nothing...

Cambia esto Me.ListBox1.ColumnCount = 2 Me.ListBox1.ColumnWidths = "200pt;20pt" Me.ListBox1.AddItem Hoja3.Cells(1, 15) Me.ListBox1.List(i, 1) = Hoja3.Cells(1, 16) Por esto: With Me.ListBox1 .ColumnCount = 2 .ColumnWidths = "200pt;20pt" . AddItem...

Prueba la siguiente. Macro: 'SEGUNDO NIVEL PARA F3 Y F4 Select Case Range("F3") & Range("F4") Case BOLA, CADE, CECI, HERR, POSTA, LOMO, COGO & COG, ALET & ALE Range("I3") = "VERDADERO" Case Else Range("I3") = "FALSO" End Select Nota: Procura poner el...

Te respondí la pregunta. Deberías ser un poco más paciente, tal vez alguien más te pueda ayudar, pero está del otra lado del mundo. Va nuevamente la macro para que la consideres. Private Sub CommandButton1_Click() 'Por Dante Amor 'DECLARACIÓN de...

Según la imagen los resultados empiezan en C3, J3 y A3. Prueba la siguiente: Private Sub CommandButton1_Click() 'Por Dante Amor 'DECLARACIÓN de variables Dim a As Variant, b As Variant, c1 As Variant, c2 As Variant, c3 As Variant Dim dic As Object, i...

Prueba esto Sub test() 'VALIDACIONES If [C4] = "" Or [C5] = "" Or [C6] = "" Or [C7] = "" Then MsgBox "Faltan datos" Exit Sub End If ' 'Aquí seguiría tu macro ' End Sub

Después de esta línea .Cells(NuevaFila, 3).Value = textbox9 Pon estas líneas: If UCase(textbox9) = "CANCELADO" Then .Cells(NuevaFila, 3).Interior.ColorIndex = 3 Else .Cells(NuevaFila, 3).Interior.ColorIndex = 45 End If

Supongo que no es necesario verificar si existen datos, de todas formas escribes en las celdas de la fila 4. Prueba lo siguiente: Sub Registro() Dim sh As Worksheet Set sh = Sheets("Formato") With Sheets("Registro") .Range("A4").EntireRow.Insert...