James Bond

Más simple aun esta instrucción colocara en la columna C fórmulas en todas aquellas que en la columna a y b tengan datos y esta es la macro Sub formular() With Range("a1").CurrentRegion.Columns(3) .ClearContents .Formula = "=a1*b1" End With End Sub

ya intentaste Application.Windows("libro1").Visible = True?, eliminaste la instruccion pero la dejaste activa no veras el libro hasta que apliques la instruccion que te mencione al principio de este post.

necesitas crear una columna auxiliar como la que esta en la imagen (columna C), y en esa columna teclear la formula =ESTEXTO(B1), luego en la celda D1 haces un conteo con la formula =+CONTAR.SI(C1:C25,VERDADERO), como ves tengo 15 datos y solo cuenta...

En tu pregunta anterior Elsa te paso la macro para eliminar la POR del formulario, ¿no entiendo porque sigues insistiendo con lo mismo?

¿Esto es más o menos lo que quieres?, este es un simple ejemplo de como se puede hacer, ya que desconozco como esta estructurada tu información, te puede servir de base para adaptarlo a lo que quieres, lo único que no se es si funcione cuando tienes...

¿Ya intentaste esta macro?, la instrucción cancela el usar la POR como modo de salida Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) Cancel = True MsgBox ("para salir use los botones "), vbInformation, "AVISO EXCEL" End Sub

Private Sub Worksheet_Change(ByVal Target As Range) valida = Intersect(Target, Range("b:b")) Is Nothing If valida Then If Target.Column = 2 And Target.Value <> "" Then Target = UCase(Target) End If If Target.Column = 11 Then 'Call ordenar End If End...

Lo que pides tiene un inconveniente apenas coloques un dato la macro te va a ordenar la información, esta macro ordena la info tomando como base la columna M8, la información en la columna M debe ser la ultima en ser capturada ya que si haces la...

Usa la siguiente instrucción, el goto salta se ira directo a la línea salta sin importar las condiciones de validación y se ira directoa a ejecutar el código después del else que es donde esta la etiqueta salta: elseif... Then if ..... then -4...

Prueba con esta macro Sub copia_hoja() Dim existe As Boolean Set hp = Worksheets("proyectos") Set H1 = Worksheets("hoja1") Set h3 = Worksheets("hoja3") Set proyectos = hp.Range("g4").CurrentRegion.Columns(1) regresa: With proyectos R = .Rows.Count...