Dificultad con Macros

[ssccaann43 ©]

Bien, expongo un poco algo que debo resolver y no encuentro manera de como hacerlo..

Debo armar una macro en excel, que recorra ciertas filas para hacer un insert en una BD...

Sinceramente nunca me he metido con macros, estoy un poco perdido, agradezco una orientación... dejo una imagen del archivo excel que debo manejar, para hacerles una idea...



Deseo es leer los registros y luego hacer un insert en la BD... saludos
 

[BlackZeroX]

.
Si es un excel puedes usar SQL.

• Vba - Macro para ejecutar un sql desde una hoja de excel
• ( Ado ) Pasar datos de Excel a Access

Tema similar (solo que a un mshflexgrid):

Como exportar MSHFlexgrid1 a Excel? - Expertos en vb6.0

En si en el vba al escribir una clase te vienen las subclases o propiedades de la misma, es como en vb6...

Dulces Lunas!¡.

[ssccaann43 ©]

Brother quiero hacer todo lo contrario...! Esa información  ya esta en el archivo excel..!

Debo construir la macro dentro del Excel, para que al ejecutarla pues la informacion que contenga en las celdas, pueda insertarla en una BD...! Me sigues?

[BlackZeroX]

En si en el vba al escribir una clase te vienen las subclases o propiedades de la misma, es como en vb6...

No me explique bien vdd?.

Has de cuenta que una hoja en excel es un form de vb6, las hojas traen eventos al igual que los forms, bueno aprovecha dichos eventos, ademas cada celda digase que son textbox con indices, por asi llamarlos asiq ue con cells o range puedes hacer referencia a los mismos.

y en el vba puedes usar CreateObject para manejar ADO

Código (Vb) [Seleccionar] Expandir



Set rst = CreateObject("ADODB.Recordset")
Set cn = CreateObject("ADODB.Connection")  
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data " & _  
                            "Source=C:\Archivos de programa\Microsoft " & _  
                            "Visual Studio\VB98\NWIND.MDB;Persist Security Info=False"



...

tambien para indicar una celda espesificamente puedes usar

la propiedad Cells de la hoja. vba te va dando las pautas...

Dulces Lunas!¡.

[ssccaann43 ©]

Bueno, ya vere como me doy trompadas con eso...!

[ssccaann43 ©]

Black, al menos crees poder guiarme como hacer quizas un for segun la imagen para obtener los valores ubicados desde la fila 5 a la fila 8, leyendo desde la A hasta la K.? Estoy perdido, te lo juro que estoy perdido, busco ejemplos y nada...!

[79137913]

HOLA!!!

Aca te dejo un codigo que pinta las celdas si en su interior hay un 1 :

Código (vb) [Seleccionar] Expandir


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    For X = 2 To 7
        If Range("B" & X) = 1 Then
            Range("B" & X).Interior.ColorIndex = 35
        Else
            Range("B" & X).Interior.ColorIndex = 0
        End If
        If Range("C" & X) = 1 Then
            Range("C" & X).Interior.ColorIndex = 35
        Else
            Range("C" & X).Interior.ColorIndex = 0
        End If
    Next
End Sub

GRACIAS POR LEER

[Novlucker]

Black, al menos crees poder guiarme como hacer quizas un for segun la imagen para obtener los valores ubicados desde la fila 5 a la fila 8, leyendo desde la A hasta la K.? Estoy perdido, te lo juro que estoy perdido, busco ejemplos y nada...!

Ejemplos hay a patadas por todos lados , a ver si esto te aclara las cosas

Código (vb) [Seleccionar] Expandir

For Each c In Range("A5:K8")
   MsgBox c.Value
Next
Ten en cuenta que cuando se recorren los valores van por filas

Saludos

[ssccaann43 ©]

 

[BlackZeroX]

.
Pero ten en cuenta Range es para el nombre de las celdas mientras que cell es por coordenadas...

Código (Vb) [Seleccionar] Expandir



Cells(Fila, Columna).Value = un valor X

o

Cells(48, 5).Value = un valor X

o para colorear = que Range...

Cells(5, 9).Interior.ColorIndex = 5 



Cells te devuelve la misma clase o propiedades de Range. solo que no te aparecen las propiedades dichas...

Dulces Lunas!¡.
.