Sebas Torres

Te dejo por aqui lo que necesitas Sub Absoluto() ActiveCell.FormulaR1C1 = _ "=IF(COUNT(R8C28:R8C30)=3,ROUND(((R8C28*R6C28)/100)+((R8C29*R6C29)/100)+((R8C30*R6C30)/100),0),"""")" End Sub

Te cree un archivo donde tienes una hoja con los clientes y luego una hoja para cada cliente. El único inconveniente es que tienes que modifica cada link a mano para darle el nombre de la hoja de cada cliente. Aquí el listado... Aqui un cliente... La...

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...

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...

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...