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

Las dimensiones de la imagen se las das al picture... para sacar a la impresora local Solo PrintOut picture1 O bien si pasaste la imagen a un objeto imagen PrintOut imagen

Acá tienes: Sub buscar(fecha As Date) Dim r As Range Dim filas As Long filas = Application.WorksheetFunction.CountA(Sheets(1).Range("A:A")) If filas = 0 Then Exit Sub '4c7569735f50 For Each r In Sheets(1).Range("A:A") If fecha = r Then...

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

Cambia de evento y utiliza el enter como disparador Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Select * from table where …. If recorset > 0 Then Muestre datos Else Mgsbox (“no hay datos”) End If End If End Sub