jerryeagle

Checa este código, espero estar bien, no lo cheque en Excel Do While Not IsEmpty(ActiveCell) ActiveCell.Offset(1, 0).Select For r = 0 to Combobox1.Listcount -1 if Combobox1.Items(r).Value = Activecell then Goto SiguienteFila end If ComboBox1.AddItem...

Si es posible, con Macros, en el evento Worksheets_Change puedes poner este código If Target.Address = Range("A5") then Range("A5") = UCase(Range"A5")

Checa este Código y lo acomodas a tus necesidades: Sub VerificaExistente(ByVal DatoBuscar as String) Set Buscar = Sheets("Tu hoja2").Cells.Find(DatoBuscar) If not Buscar is Nothing then Msgbox "Ya existe el Registro " & DatoBuscar, vbInformation Else...

Dim lngUltimaCelda, NoEsta As Long If WorksheetFunction.CountA(Cells) > 0 Then Set Encontrado = Cells.Find(What:=txtDoc, After:=[A1], _ SearchOrder:=xlByRows, _ SearchDirection:=xlPrevious) if not Encontrado is nothing then lngUltimaCelda...

Si a mi también me ha pasado, como lo soluciono es sumando y restando 1 a la celda Por ejm For each c in selection.cells c.value = c.Value + 1 - 1 next lo que no me queda claro es como pones ese "rango" en A1, lo pones manualmente? o es automatico al...

Suponiendo que tus datos comienzan en la fila 1 y tienen encabezados (suoniendo que sea una tabla) Dim FilaFin, ColFin as Integer 'Guarda el No. de la Ultima Fila con Datos FilaFin = Range("A65536").End(xlUp).Row 'Guarda el No. de la Ultima Columna...

Checa este código y lo adaptas With Me.DataGridView1 .Columns.Add("Tipo de Telefono", "Tipo de Telefono") If Not .Rows.Count < 0 Then For R As Integer = 0 To .Rows.Count - 1 Select Case .Rows(R).Cells(2).Value Case Is = 1 : .Rows(R).Cells(3).Value =...

Para hacer lo que pides tienes que crear una Función desde el editor de Visual Basic (Presiona ALT + F11) en menu Insertar --> Modulo, ahora pega ahí lo siguiente: Function Pesos(Number As Single) As String Const MinNum = 1# Const MaxNum =...

Un consejo, cuando haya duda de como hacer alguna rutina, siempre puedes recurrir a la grabadora de Macros, y luego revisas el código que escribió, yo así aprendí mucho. Intenta así: Sub BuscaCopiaPega() Dim Buscar As String, Fila As Integer...

¿Y por que no pones un botón en lugar de un option?