bacter582

bacter582

 33,8K puntos  Venezuela @bacter582 desde - visto

Actividad pública reciente

Ha respondido en y en 2 temas más

Ejecutar en las demás hojas

Amigo aquí te escribo una posible solución Private Sub CommandButton8_Click() Dim R As Range Dim T As String Dim C As String For i = 1 To Sheets.Count Set R = Sheets(i).Range("A1:SZ50") If Me.Uno.Text = "" Then T = T & "?" Else T = T & Uno.Text If...
Ha respondido en

Macro excel eliminar filas con condición, según valor celdas

Espero te ayude, borre el contenido, si quieres eliminar la fila solo hay que cambiar en la línea donde dice ClearContents Sub Borrar_Filas() Dim i As Integer Dim condicion As Boolean condicion = True While condicion i = i + 1 condicion = False If...
Ha preguntado en el tema en y en 1 temas más

VBA como evaluar el valor de una variable a partir de un texto

Tengo un conocimiento nivel intermedio/Alto en VBA, realizando una solución para un amigo, me encontré con un problema que no he podido encontrarle solución, espero me puedan ayudar Lo voy a resumir de la manera más sencilla posible En la celda a1...
Ha empezado a seguir el tema
Ha respondido en y en 1 temas más

Problema con evento Before Close en VBA excel

Amigo por que no pruebas haciendo referencia directa sin activar la hoja Private Sub Workbook_BeforeClose(Cancel As Boolean) Empresa = UCase(Sheets("Parametros_NV").Range("T1").Value) IngNiv1 = Sheets("Parametros_NV").Range("J4").Value IngNiv2 =...
Ha respondido en

Alarma

Como estas amigo, para que aperezca un botón rojo si no se cumplen ciertas condiciones es sencillo, pero para que el mismo titile, se complica bastante la cosa por que se necesita un control timer como el de VB6, que no tiene el VBA. ¿En tu programa...
Ha respondido en

Buscar fechas en columnas

No me llego el mensaje completo
Ha respondido en

Excel función minuto

Como estas hermano, prueba esta fórmula =SI(HORA(E10)<8;60-MINUTO(E10);MINUTO(E10))
Ha respondido en

Modificar el tamaño de una imagen en excel macro

Espero estés bien Prueba con este código a ver si te resuelve el problema Sub aumentar_50() Dim fotografía As Variant Application.ScreenUpdating = False Set fotografía = ActiveCell.Worksheet.Shapes("Picture 2") With fotografía .Width = .Width * 1.5...
Ha respondido en

Como retornar al mismo text en formulario

Como estas hermano, estuve de viaje y no había visto tu pregunta, si todavía tienes la duda te respondo según lo que entiendo. Quieres que después de darle click al botón el textbox1 sea seleccionado Para eso pruébalo de esta manera Private Sub...
Ha respondido en

Macro pa agregar apostrofe en selección de celdas

¿Cómo estas amigo, tienes todas las fechas en un libro de excel? Si es así lo puedes hacer con la función concatenar =concatenar(a1;"´")
Ha respondido en y en 1 temas más

Excel VBA: Variables para varios FORMS

Amigo las variables globales las defines con public, puede ser en un modulo Public Global_Item As Integer Public Global_Pago As Boolean igual con las funciones Public Function Limpiar_cedula(Cadena As String) As String end función
Ha respondido en

Código para el cambio de Userforms

Como estas amigo daniel, cuando utilizas la propiedad hide de un userform el solo lo oculta pero no lo descarga de memoria, no se si eso es lo que buscas, prueba y me comentas. Saludos Bacter sub commandbutton1_click() userform1.hide userform2.show...
Ha respondido en

Buscar valor en celda y copiar la primela celda

Como estas amigo, Prueba esta macro a ver si te ayuda con tu problema Sub recorrer_amarillo() For i = 1 To 500 If Cells(i, 1).Interior.ColorIndex = 6 Then Sheets("hoja2").Cells(i, 2).Value = "Necesita Formacion" End If Next End Sub
Ha respondido en

Inputbox

¿Amigo lo único que necesitas es que lo ingresado en por el inputbox mostrarlo después en un texbox? Prueba almacenando la cadena en un variable, cambia en tu código lo siguiente. dim cadena as string cadena=InputBox("Ingresar N° Telefónico",...
Ha respondido en

Bucle vba saltando duplicados

Como estas amigo, pensé que ya habías resuelto tu problema, una pregunta, si solo quieres que a partir de tu punto de partida todos sean correlativos te sirve si a partir de allí los correguimos de esta manera Sub faltantes() For i = 1 To 50...

Mejores respuestas proporcionadas

1
1