caranbis

'Pega esto despues de filtrar: 'Seleccionamos el primer encabezado de la tabla, en mi caso es A1 Range("a1").Select 'Ahora contamos las filas visibles y restamos 1, que correspondiente a los encabezados For Each area In...

A tu servicio. Algo que te puede servir: Selecciona la columna donde deseas buscar el "valor1" y lulego ejecutas la macro. Sub JHASDBF() Dim CELDA As Range Dim valor1 As String Dim valor2 As String Dim guia As Double Dim coincidencia1 As Boolean...

Descarga este archivo de ejemplo de la función CONTAR. SI http://www.zshare.net/download/544517877ae5cd12/ Carlos L.

Servido Sr. José María. Selecciona la ÚLTIMA celda llena de la COLUMNA A, y luego ejecuta la macro Sub Macro1() Dim inicio As Double Dim fin As Double Dim rangoinsert As String Dim celdant As Range Application.ScreenUpdating = False While...

Servido Caballero. Sub duplicafiladeceldaactiva() Application.ScreenUpdating = False Rows(ActiveCell.Row).Select Selection.Copy ActiveCell.Offset(1, 0).Select Selection.Insert Shift:=xlDown Application.CutCopyMode = False ActiveCell.Offset(-1,...

Servido Caballero http://www.zshare.net/download/53761759e537d9fe/

Servido Caballero =SI(LARGO(A2)=5;MES(A2);"") Carlos Leal.

Pega esto a la hoja correspondiente, NO EN UN MODULO, sino en la sección de código de la hoja donde están los teléfonos. Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim x As Double If Target.Address = "$F$7" Then x =...

Tendrías que desarrollarlo y compilarlo directamente en visual basic 6.0 o posteriores.

CInt() : Redondea un decimal a su entero más próximo. OJO: no suprime sus decimales, los redondea.