Luis_P

Seria asi: Private Sub UserForm_Initialize() Me.Caption = Date & "|" & Time End Sub

Ni idea

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

Acá esta: Private Sub Command1_Click() numero = CInt(InputBox("Introducir número: ")) MSHFlexGrid1.Rows = numero + 2 ' este era el problema Dim j As Integer j = 1 For i = 0 To numero cuadrado = i ^ 2 cubo = i ^ 3 MSHFlexGrid1.TextMatrix(j, 0) = i...

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