Resumen Macros de Excel 97 y Vb   (2 mensajes )

prueba esto a mi me funciona bien
me imagino que la columna de excel tendra un encabezado (Titulo)

Dim emcabezado as string

>'si es asi y ademas siempre vas a la misma fila

Columns("A:H").Find(encabezado).Activate ' ("A:H") Elige el rango de
columnas

>'si no vas siempre a la misma fila y tienes que encontrar la celda vacia
siguiente en la columna

verificar = True
Do
    Do Until ActiveCell.Value = ""
    Selection.Offset(1, 0).Select ' baja una fila cada vez en la misma
columna
     If ActiveCell.Value = "" Then
     Verificar = False
     Exit Do
     End if
    Loop
Loop Until Verificar = False

si no es esto lo que querias dimelo, si puedo te ayudare
un saludo

pepe baile
guito@spicom.es    

----------
> De: Fernando Toledo <ragnarok@gcomm.com>
> A: vb-esp@ccc.uba.ar
> Asunto: (VB-ESP) MAcros de Excel 97 y Vb
> Fecha: lunes 22 de junio de 1998 1:15
>
> hola tengo una duda..tengo que hacer macros de Excel 97 que desde un
> textbox lleve ese dato a una celda...
> el codigo seria algo asi
>
> Range ("D1").Select
> ActiveCell.Value = Textbox1
>
> pero el problema es que si por esas casualidades el usuario agrega una
> columna a esta planilla,.
> como puedo hacer para que el codigo se refiera a esa columna/fila
> SIEMPRE, aunque se agreguen otras...imposible no? =(
>
> --
> --------------------------------------
> - DOCK SUD BBS - TLD 24HS -
> - 222 - 8273 -
> --------------------------------------
> -_ fILES/fOROS/cHAT/tELE/xXX _-
> - gAMEcONNECTION/iNFO -
> --------------------------------------

>Este fin de semana, desconectado de la red, he conseguido que el programa
>funcione, aunque el merito es de Jose Rubi de la Vega que me envio
>practicamente todo el codigo. Gracias.

De nada ;-)

>
>Por cierto, se puede desde VB5 ejecutar una macro de Excel? ¿cual es el
>procedimiento?
>

Dim xl As Excel.Application
Dim hoja As Excel.Worksheet

'cargar excel
Set xl = New Excel.Application
'abrir el libro
xl.Workbooks.Open App.Path + "\libro1.xls", , True
'ejecuto la macro
xl.Application.Run "Libro1.xls!ThisWorkbook.MacroDePrueba"


Un saludo.

_________________________________________________
José Rubí de la Vega
E-mail : jrubi@arrakis.es
WWW : http://www.arrakis.es/~jrubi
Podrás encontrar información sobre VB, la lista
VB-ESP y un resumen de los mensajes de la misma




Resumen Resumen

Visual Basic Página de Visual Basic

Página principal Página principal

www.jrubi.com