Adriel Ortiz Mangia

[Hola deseas buscar si un código se repite en una columna ? Private Sub CommandButton1_Click() ' '***Por Adriel Ortiz ' Set h = Sheets("Hoja1") ' nombre de la hoja ' Set r = h.Columns("A") Set b = r.Find(TextBox1, lookat:=xlWhole) If Not b Is Nothing...

[Hola Te paso la macro actualizada Private Sub btnCargar_Click() ' 'Act. Por Adriel Ortiz 'Declaramos variables Dim Cargar As String ' Set h = Sheets("BDRutinas2") ' Cargar = MsgBox("Deseas cargar la sesión seleccionada?", vbYesNo) If Cargar = vbYes...

[Hola Envíame tu archivo y me explicas con un ejemplo. [email protected]

[Hola Te paso la macro Sub Eliminar_fila() 'Por.Adriel Ortiz ' Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") ' u = h2.Range("A" & Rows.Count).End(xlUp).Row Set r = h1.Columns("A") For i = u To 2 Step -1 Set b = r.Find(h2.Cells(i, "A"),...

[Hola Pon la macro para revisarlo

[Hola Te paso la macro Para finalizar hay 2 opciones Excelente o buenos saludos! Sub buscar() ' '***Por Adriel Ortiz ' Set h = Sheets("Hoja1") ' nombre de la hoja ' valor = InputBox("Ingrese el valor a buscar") If valor = "" Then Exit Sub Set r =...

[Hola Te paso la macro Valora la respuesta para finalizar como Excelente o bueno saludos! Private Sub Worksheet_Change(ByVal Target As Range) ' '***Act. Adriel Ortiz ' If Target.Address(False, False) = "D13" Then ' Select Case Target Case "carla"...

[Hola Te paso la macro Private Sub CommandButton1_Click() ' '***Por Adriel Ortiz ' h = ActiveSheet r = h.Columns("A") b = r.Find(TextBox1, lookat:=xlWhole) If Not b Is Nothing Then TextBox2 = h.Cells(b.Row, "B") TextBox3 = h.Cells(b.Row, "C")...

[Hola Te recomiendo que utilices optionbutton porque tu propósito es solo seleccionar una opción

[Hola Esta pregunta Ya resolví Valora la respuesta en ambos preguntas saludos! Macro para ordenar datos por nombre y después sumar los montos para sacar totales por nombre Si tienes problemas en los ajustes envíame tu archivo: [email protected]