parmijo

Probablemente el código que tienes hace referencia a la hoja1, por lo cual cada vez que la ejecutas la macro se dirige a ella. Sheets("Hoja1").Select Este mensaje: (Algunas macros pueden contener virus. Generalmente es más fácil deshabilitarlas, pero...

La modificación para el color: Sub DelDups_OneList() Dim iListCount As Integer Dim iCtr As Integer Application.ScreenUpdating = False iListCount = Sheets("hoja1").Range("A1:A100").Rows.Count Sheets("hoja1").Range("A1").Select Do Until ActiveCell = ""...

Te adjunto la planilla por correo lamentablemente los fines de semana no me conectopor eso la demora

Efectivamente las veriables de tipo string son de texto, una forma de llavarlas como numero es declararlas como tipo LONG, otra forma es anteponiendo a la función val(string) sería algo como range("a1").value=val(Textobox1)

Para el primer requerimiento te aconsejo: En el código de la Hoja, no en un modulo. Private Sub Workbook_Open() Worksheets("Portada").Visible = True ' muestras la portada 'repetir para las otras hojas Worksheets("detalle").Visible = xlSheetVeryHidden...

Lo más sencillo seria que hicieses una columna anexa a tu lista original y así eliminar los repetidos y cargarlos al Combobox (todo esto por código)

Si estas utilizando VB de excel tienes la opción de declarar alguna variable del tipo LONG Dim valor as long valor= textobox1 range("a1").value= valor de otra forma sería utilizar la funcion VAL range("a1").value = VAL(textobox1)

Una buena opción es ocupar alguna variable : ULT = Sheets("Tu hoja").Range("A65536").End(xlUp).Row+1 para gravar un nuevo ragistro sería algo asi cells(Ult, 1).value= tu valor donde 1 = a la columna A y Ult = a la ultima fila utilizada +1 saludos

Disculpa la demora : Te adjunto una macro para que la evalúes: Sub Comparar() Dim resp1 As String, resp2 As String, resp3 As Long 'resp1 = InputBox("Ingrese el primer rango") 'resp2 = InputBox("Ingrese el Seguno rango") 'resp3 = InputBox("Cantidad de...

Disculpa mi demora pero por motivos de salud no pude responder antes : Tu código esta bien encaminado : Private Sub Worksheet_Change(ByVal Target As Range) If Range("c8").String = no Then if range("C8").value="no"then Range("d8").Select...