Aneudys Martinez

¿Cuánta condiciones tiene que dares para que cambie el rango de la fórmula? con un if .... then se podria hacer y tambien con select case O en su major forma en el evento chamge de la hoja Con una de esa tres opciones puedes varia la fórmula y el...

Mándame el archive para agregar la macro [email protected]

[email protected] mandaem el archive para agregar la macro

Josue lo puedes conseguir de esta manera Ejemplo en el evento open del thisworkbooks Private Sub Workbook_Open() Dim nombre As String Dim paso2 As Boolean nombre = UCase(InputBox("Nombre de Usuario")) paso2 = False Select Case nombre Case...

1 - para los del registro Puedes crear una macro que copie los datos que quiere en tu base de datos Los del check Para que no copie los datos Puedes usa algo asi If CheckBox1 = True Then Range("a1") = TextBox1 Else Range("a1") = "" End If o If...

Aquí esta el procedimiento Range("a2").Select Do While Not IsEmpty(ActiveCell) If InStr(cadena, ActiveCell) = 0 Then cadena = cadena & " " & ActiveCell End If ActiveCell.Offset(1, 0).Select Loop cadena = Right(cadena, Len(cadena) - 1) VALOR =...

Muestra nos la línea que usa para carga los datos al listbox Yo este procedimiento para carga los datos uf = Hoja1.Range("a1000000").End(xlUp).Row For Each celd In Sheets("reporte").Range("A10:A" & uf) ListBox1.AddItem celd.Value 'col A...

en una celda comun usa la function sifecha seria asi =sifecha (celda fecha de nac,celda de fecha de hoy,"y") =sifecha(a1,a2,"y") en el caso de Fecha de nsc. Este en la celda a1 Fecha de hoy este en la celda a2 Y en a3 estaría la fórmula Luego en el...

¿Sabe usa macro? Me imagino que la columna que vamos a tomar de referencias es la "H" estos lo puedes conseguir con un select case y do while seria asi: sub clasificarpromedio () Range("b7").Select Do While ActiveCell <> "" Select Case...

Hay varias opciones estas: 1- Una macro con la que solo tiene que dale click Y ella recora las celda y la oculte Ejemplo: sub Amarillo () Set rango = Range("a1:a100") For Each celdita In rango If celdita.Interior.Color = 65535 Then...