Luis_P

Prueba esto: Los datos a evaluar estan en col A La salida de datos es en col B Sub extra() Dim R As Range Dim f As Long Dim cadena As String Dim i As Integer Dim c As Integer '4c7569735f50 f = Application.WorksheetFunction.CountA(Range("A:A")) If f =...

Usa una celda como referencia Workbooks(sheets(1). Range("A1")). Activate Asi solo pones el nombre del libro en la celda a1 del libro1 y ya esta.

Una forma seria Si la lista de numeros esta en columna A =EXTRAE(A1;LARGO(A1);1) Asi extraes el ultimo digito del numero, copias hacia abajo y luego sencillamente utilizas un contar. Si sobre ese rango indicandole como criterio el numero que te...

Una idea: Private Sub CommandButton1_Click() Sheets("Registro").Select Dim x As Integer Application.Goto reference = "R1C1" Selection.End(xlDown).Select ActiveCell.Offset.Range("A1").Select x = ActiveCell.Value x = x + 1 For i = 0 To n ' numero dado...

Range("S65536").Select ' ultima fila de col s Selection.End(xlUp).Select ' ubica la ultima con contenido contá = Selection.Row ' identifica el numero de fila Range("A11:AW" & contá).Select ' seleccionas el rango a copiar

Ok entonces: En un modulo ( no de clase) pones este macro: Sub informe() Dim f As Long Dim filas As Long Dim i As Integer '4c7569735f50 For i = 3 To 20 f = Application.WorksheetFunction.CountA(Sheets(i).Range("C410:c65536")) filas =...

Lo que necesitas es algo asi como un Concatenar. Si que en excel... al menos en la version 2007 "no existe". Asi que lo que necesitas es crear una funcion personal.. para esto debes insertar un modulo ( no de clase) desde el editor de vba (alt +...

Prueba con esto private sub codig() [A1]=application.ProductCode end sub Eso te pasa la info a la celda a1

Bueno no existe una funcion para eso especificamente, pero usa el ingenio Para la categoria x pon esto =contara(rango de tu lista)-suma(rango resultados) En donde rango resultados es la suma de tus categorias a, b, c, 55+46+87 asi calculas los que no...

prueba utilizando la funcion de busqueda =buscarv()