Dante Amor

Ejecuta la siguiente macro: Sub cambiarValor() 'Por Dante Amor Dim col As Variant, s As Variant Dim i As Long ' col = InputBox("Entra la letra de la columna") If col = "" Then Exit Sub s = InputBox("Entra la letra S, A, P o N") If s = "" Then Exit...

Prueba la siguiente macro. Antes de ejecutar la macro, debes indicar en dónde empiezan tus datos, en esta línea de la macro: Set celda = Range("A1") 'celda inicial de datos Al final de la macro, se encuentra esta línea, para centrar los datos, si no...

No mencionaste cuáles datos van en la fila de encabezados. Te puse un ejemplo para poner los encabezados. .Value = Array("Enc1", "Enc2", "Enc3", "Enc4", "Enc5", "Enc6", "Enc7", "Enc8", "Enc9") Si los datos se toman de otra fuente, intenta adaptarlo,...

Pon el siguiente código en los eventos de la hoja "OLT" Private Sub Worksheet_Activate() Dim sh As Worksheet For Each sh In Sheets If sh.Name <> "OLT" Then sh.Tab.Color = xlAutomatic End If Next End Sub [Comenta cualquier duda. No olvides la valoración.

Revisa la siguiente respuesta: ¿Por qué este código no carga la imagen en mi archivo pero en el original si? Si te ayuda la solución, no olvides la valoración y un voto a la respuesta.

Debes poner la hoja de referencia: Private Sub CommandButton1_Click() Dim xRow As Long xRow = [RandBetween(13,39)] TextBox1 = Sheets("C. FILIACIÓN").Cells(xRow, 2) 'nombre de tu hoja End Sub [Avísame cualquier duda, no olvides la valoración.

Puedes explicar cuál o cuáles sin las condiciones. Si cumplen en dónde poner el 0 y en dónde poner el 1 Explica 2 ejemplos de tu imagen.

Prueba así y comenta: Private Sub TextBox1_Change() Sheets("EB").cells(1, 11) = "ORDEN " & TextBox1.Value End Sub Si es lo que necesitas, no olvides la valoración.

Prueba así: Sub fecha_lote() Dim fecha As String, lote As String Dim anio As String, mes As String, dia As String Dim unifecha As Date Dim fila As Long fila = 2 Do While Cells(fila, 1) <> "" fecha = Mid(Range("A" & fila), 5, 6) lote = Mid(Range("A" &...

Prueba la siguiente macro. Ahí te puse unos comentarios para que la adaptes a tus necesidades. Sub InsertarFila() 'Por Dante Amor ' Dim sh As Worksheet For Each sh In Sheets Select Case sh.Name Case "Resumen", "Reporte", "etc" 'en estas hojas no se...