Sebas Torres

Con la siguiente macro, seleccionas un rango, ingresas un dato en el Imputbox y las celdas que contengan ese dato se remplazara la celda por "COMPAÑIA ELECTRICA" saludos. Sub ReemplazaPalabras() Dim Celda As Range Dim Palabra As String Palabra =...

Al abrir un formulario(userform) no puedes seleccionar nada porque por defecto te permite unicamente usar el formulario hasta que cierres esa ventana... si lo que deseas es usar el formulario y tambien excel solo tienes que ir al formulario y buscar...

Jaja te acabo de responder esto en la otra pregunta Bloqueando la hoja activa ActiveSheet.Protect "hola", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True 'Desde la misma hoja Bloqueando otra hoja Sheets("Hoja1").Protect...

Colocar una contraseña distinta a cada hoja seria un dolor de cabeza... ya que no sabrias la clave jeje.. Aqui te dejo una macro para un libro de 4 hojas.. donde en la 4ta hoja estan las pass Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim...

Buenos sinceramente no se que es ese sistema je je pero lo busque en internet y me apareció este fíjate si te sirve mira este enlace

Imagino que si tienes un archivo que le indicas un valor y te tira 200 datos te estas refiriendo a que es un ciclo que se repite 200 veces para conseguir dichos datos... de ser asi podrias indicarle en cada vuelta que pegue el dato en una celda...

Estas repitiendo =SI(G4="Mecanico 1";(F8*G5)+(F9*G6)+(F10*G7);SI(G4="Mecanico 2";(F8*G5)+(F9*G6)+(F10*G7);"")) De esta forma, si no dice mecanico 1 seguira con la siguiente condicion que es mecanico 2, y tampoco dice mecanico 2, entonces quedara en...

Si lo quieres poner en la hoja para que se ejecute solo tras cada cambio seria asi: Private Sub Worksheet_Change(ByVal Target As Range) If UCase(Range("A1").Value) = "BASIC" Then Columns("F:G").Hidden = True ElseIf UCase(Range("A1").Value) = "PLUS"...

Podrías simplemente crear una lista desplegable con las opciones y dentro del módulo de la hoja crear un if en el modo "change" de la siguiente forma Private Sub Worksheet_Change(ByVal Target as Range) If range("A2").value = "A" Then ' A2 sería la...

Compañero te mando una imagen porque esta web anda cada dia peor y no deja escribir macros...