Dante Amor

Otra opción: =SI(A1<500,"20%",SI(A1<1000,"18%",SI(A1<1500,"16%",SI(A1<=2000,"14%"))))

Si hay algún otro método en macros que me ayude a poder modificar el color de las celdas Aquí otro método a considerar: Private Sub CommandButton1_Click() With Application .FindFormat.Interior.ColorIndex = 47 .ReplaceFormat.Interior.Color = RGB(242,...

Prueba lo siguiente: Sub transponer() Dim sh1 As Worksheet Dim i As Long, k As Long, uc As Long ' Set sh1 = Sheets("Hoja1") k = 3 uc = sh1.Cells(3, Columns.Count).End(1).Column For i = 3 To sh1.Range("B" & Rows.Count).End(3).Row Step 2...

Después de esta línea: msgbox("El registro correspondiente se encuentra en la fila : ") & val( i ) Pon la siguiente: range("A" & i).select

Otra opción a considerar: Sub Quita_Espacios() Selection.Value = Evaluate("=IF({1},TRIM(" & Selection.Address & "))") End Sub

Prueba lo siguiente: Private Sub CommandButton1_Click() Dim i As Long, cad As String For i = 0 To ListBox1.ListCount - 1 cad = cad & ListBox1.List(i, 1) & " - " Next If cad <> "" Then Sheets("Hoja2").Range("C9").Value = Left(cad, Len(cad) - 3) End Sub

Puedes utilizar cualquiera de las siguientes opciones, te recomiendo la primera, ya que es la forma correcta de declarar una variable de tipo texto. Sub test() Dim variable As String variable = Range("B3").Value End Sub Sub test2() Dim variable As...

O puedes utilizar lo siguiente sin ciclo: Sub Concatenar() Range("M8:M" & Range("J" & Rows.Count).End(3).Row).Formula = "=L8 & ""-"" & J8" End Sub

Pon la lista en una hoja de excel, ejemplo: Y utilizas el método Find para buscar y asignar la clave a tu variable nombre: Dim sh As Worksheet Dim f As Range Dim nombre As String ' Set sh = Sheets("Hoja1") Set f = sh.Range("A:A").Find(nombre, ,...

Debes crear un formato condicional por cada color. Selecciona las celdas de la columna B, empezando en la B3 y hasta la última celda con datos. Entra al Menú, Formato condicional, Nueva regla, Utilice una fórmula que determine las celdas, Dar formato...