Aneudys Martinez

Sub vendedor_estrella() Set rango = Sheets("hoja1").Range("b2:d13") Set busca = rango.Find(Application.WorksheetFunction.Max(rango), LookIn:=xlValues, lookat:=xlWhole) If Not busca Is Nothing Then ubica = busca.Address busca.Select Range("g2").Value...

Quieres modificar el registro o eliminarlos por completo con todo y nombre Estas macro elimina la fila de la celda activa Sub EliminaFilas() 'Elimina filas de la celda activa ActiveCell.EntireRow.Delete End Sub Saludos no olvide valor si te silve...

Crea una carpeta compartida que le llegue a los usuario que van a trabajar con el archivo y al archivo dale compartir con varios usuario

[email protected] en el específica lo que quiere o necesitas hacer

Prueba estos a ver El 2 es la fila donde comienza la fila El 1 sera la columna A ActiveCell. Offset(0, 2) estas parte es donde esta la ruta de tu imagen el 2 es la columna C Foto es el nombre del control de imagen private sub listbox1_click() If...

Yo lo tengo de la siguiente manera en el evento iniciar de userform cargo los datos de la hoja Private Sub UserForm_Initialize() ListBox1. Clear ListBox2. Clear Range("a2").Select Do While ActiveCell.Value <> "" ListBox1.AddItem ActiveCell i =...

Pruebas estas Sub Cerrar_libro() Dim Contador As Integer Contador = 1 Range("A1").Select Do While ActiveCell <> "" If ActiveCell.Offset(0, 1) = "" Then MsgBox "hay " & Contador & " registros para completar antes de cerrar el archivo" Contador =...

En un módulo Sub limpiar () Range ("a20:f20").clearcontents End sub Esto limpia la línea 20 desde columna A Hasta F Sólo coloca el rango o las celdas que quiere limpiar y listo Si te silve recuerda valorar para cerrar la pregunta

Usa la funcionó concatenar y funciona la fecha día de semana con día de calendario Sería en una celda =texto (hoja1! C3,"dddd") El la otra sería =texto (hoja1! D3,"dd") Y aquí en f3 la de concatenar que seria =concatenar (c3,"-", d3) El resultado...

En el botón pega estos Hoja1 es el nombre de tu hoja de búsqueda Set H = Sheets("hoja1") Set b = H.Columns("A").Find(TextBox1) If Not b Is Nothing Then b.Select ActiveCell.Offset(0, 1) = TextBox2 Else MsgBox "No existe el dato" Fila =...