Carlos soloffice

Si se puede :) Tienes que programar el evento Change del ComboBox, de esta manera: Private Sub ComboBoxPRLISO_Change() Select Case ComboBoxPRLISO.Text Case "OK" ComboBoxPRLISO.BackColor = vbGreen Case "Pending" ComboBoxPRLISO.BackColor = vbRed Case...

Prueba con esta :) Private Sub Worksheet_Change(ByVal Target As Excel.Range) Dim sCeldas As String 'Celdas que quieres limitar sCeldas = "$G$5,$G$6,$G$7,$I$5,$I$6,$I$7,$K$5,$K$6,$K$7" If InStr(sCeldas, Target.Address) > 0 Then 'Si es menor que uno,...

Leyendo tu consulta te invito a que me envíes el excel por correo, si puede ser. Creo que podré ayudarte con mayor eficacia de esa manera. Si no pudieras enviarme el excel, se me ocurren dos posibilidades, te las comento por si quieres probarlas: -.-...

Te pondré un ejemplo: Si quieres que la celda A1 de la Hoja2 contenga la misma información que escribes en la celda A1 de la Hoja1, la fórmula que tienes que poner (en la celda A1 de la Hoja2) es esta: =Hoja1!A1 Para la celda A2 de la Hoja2 será así:...

Eso va a ser porque después de Show tienes que quitarle . Activate Te quedaría así: Sub Macro2() ' ' Macro2 Macro ' ' Sheets(Array("PORTADA PROYECTO", _ "PRESTACIONES SEG. SOCIAL", "PROPUESTA PERSONAL ", _ "DETALLE DE COBERTURAS Y PRIMAS",...

A2 -> =ELEGIR(DIASEM(B2);"Domingo";"Lunes";"Martes";"Miércoles";"Jueves";"Viernes";"Sábado") B2 -> =B1-DIASEM(B1;2)+1 A3 -> =ELEGIR(DIASEM(B3);"Domingo";"Lunes";"Martes";"Miércoles";"Jueves";"Viernes";"Sábado") B3 -> =B2+1 Etc... Espero que te haya...

La solución a tu problema es sustituir las comillas por corchetes [], por ejemplo: SELECT [mi primer campo] From [mi tabla] Espero que te sirva, saludos, Carlos [email protected]

No lo dices, pero intuyo que lo necesitas para un rango de celdas dentro de la misma columna. En ese caso te quedaría así: Function Variacion() For Each oCelda In Range("H9:H20") x = oCelda.Value If x <= -3.1 Then oCelda.Offset(0, 1).Value = "B.N"...

Te hago esta propuesta como solución a tu problema basasda en macros. http://goo.gl/x00Ig Ya me dices si esto es lo que buscabas, un saludo, Carlos [email protected]

Se podría modificar tu macro de esta manera para que hiciera lo que quieres. Sub eliminar_jugador() Dim Dato As Range Dim nUltimaFila As Long Dim nFila As Long nUltimaFila = Hoja2.Range("B" & Columns("B").Rows.Count).End(xlUp).Row Set Dato = Nothing...