paramisolo

Marcas todas las celdas que quieras si quieres pues rangos de 300 filas y eliges como formato de celdas personalizado escribes 300### si son de 6 cifras y tan solo tendrás que escribir las ultimas 3 al pulsar entrar el valor 300 lo pondrá Excel en...

Pues con esa condición que necesitas: If Range("E20").Value=Creditos Then 'lo que quieras que haga If Range("E20").Value="Creditos" Then 'lo que quieras que haga If Range("E20").Value="Metalico" Then 'lo que quieras que haga If...

Suponemos que tu rango a comprobar va desde la celda A1 hasta la celda A20 Sub comprobar_blancos() Sheets("Hoja1").Select Range("A1").Select contador=0 Do While ActiveCell.Address<>""$A$20" If ActiveCell.Value="" Then contador=contador+1 End If...

Esto es muy fácil pasas a variables los valores de las celdas de la Hoja 1 Te explico, supongo que columna A= Codigo,B=Descripción,C=Unidad, D=Embalaje y E=Precio Insertamos un módulo en VBA y pones esta macro: Sub calcular() Dim valor, valor1,...

cuando dices pegados te refieres a que esten en la misma celda o en celdas contiguas pongamos Hoja1 celda A1=Andres, Hoja 2 celda A1=Perez, Hoja 3 celda A1=Andres Perez o bien celda A1=Andres celda B1=Perez. Otra cosa esto lo tienes que hacer una vez...

Te sitúas en la celda donde quieres sumar, en la barra de fórmulas pones = y ahora vas haciendo click en cada celda que quieras sumar y vas añadiendo el símbolo de suma + cuando termines pulsar entrar y ya lo tienes hecho. >Un saludo >Julio

A ver si así de cabeza atinamos con lo que necesitas: Suponemos que en la Hoja por tienes registros desde la celda A1 hasta la A30, osea 30 registros, a partir del 30 las celdas estarán vacías en la columna A Sub Ocultar_Filas() Dim celda As String...

Deberías de poner un botón en la hoja para insertar filas y al botón ponerle el código para que primero desproteja la hoja inserte la fila encima de la celda activa y vuelva a proteger la hoja: Sub CommandButton1_Click() ActiveSheet.Unprotect...

Vale de acuerdo mandalo y dime donde falla a ver que ocurre.

Quedaría así: Sub Macro7() Range("B18").Select Selection.Copy Sheets("Otros calculos").Select Range("B2").Select Do While ActiveCell.Value<>"" ActiveCell.Offset(1,0).Select Loop Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,...