Ejecutar Macro Al Cambiar Valor De Una Celda

[Carlojas]

Buenas tardes compañeros mi inquietud es la siguiente:
Estoy consultando atravez de una macro algunos datos de una BD, la conexion esta bien, la estructura de la hoja de excel es la siguiente:

ORDEN CANTIDAD REFERENCIA ORDEN CANTIDAD REFERENCIA

Esas son las 6 columnas que tengo en mi hoja de excel, lo que deseo hacer si se puede claro esta es que por ejemplo al digitar un código de orden en cualquiera de las columnas ORDEN me lista los datos asociados a la misma, datos que consulto de mi BD y que aparescan al frente en las columnas CANTIDAD y REFERENCIA, hasta ahora lo que he logrado es listar los datos pero pasandole un valor estatico es decir la columna "A2" por ejemplo que estaria la primera orden, pero la verdad no se como comparar o validar si se esta digitando algo en en el rango de celdas en el estarían las ordenes.

De Antemano muchas gracias por su colaboración al respecto y si estoy equivocado en mi planteamiento les agradesco me lo hagan saber.



Saludos.

[Carlojas]

Alguna idea asi sea pequeña al respecto compañeros???


Saludos y Gracias.

[mrocf]

Con todo respeto: has sido muy poco claro... Y te explico por qué:

a) - "... datos de una BD ..."
¿Qué base de datos? ¿Access? ¿Otro archivo excel? ¿Otra tipo de BD?

b) - "... Estoy consultando a través de una macro algunos datos de una BD, la conexión está bien ..."
Si la "conexión está bien", y aplicas "macros"... entonces: ¡no hay más nada que agregar!!!.

¿Qué te parece si comienzas de nuevo y tratas de ir a lo profundo de tu dificultad?

¿Es Access?
¿La conexión no está bien puesto que no te brinda la información que deseas?

En fin...

[Carlojas]

La BD es SQL Server, digo que esta bien la conexion porque hago una consulta cualquiera y me muestra datos, pero lo que deseo es poder ejecutar el macro al digitar el valor en una determinada celda de mi hoja o mas bien es unas determinadas celdas de mi hoja.



Saludos y Gracias.

[mrocf]

Fijate si el contenido del siguiente enlace te puede ayudar:

http://www.recursosvisualbasic.com.a...er-a-excel.zip

[Carlojas]

Que tal mrocf, primero que todo gracias por la ayuda, pero este es el ejemplo del que te comento que ya lo probé hacer una consulta no es el incoveniente que tengo, la idea es que en determinadas celdas de mi hoja poder ejecutar una macro que consulte unos datos de mi BD y mostrar esos datos en las dos celdas anteriores a lacelda que se esta editando. como lo comentaba en el primer post, tengo 6 columnas en mi excel dos de ellas son las columnas que al editarlas se debería ejecutar la macro. lo que llevo hasta ahora es lo siguiente:

en un módulo programa la macro:

Código vb:

Sub Consulta_Condicional(ByVal Dato As String)
'Create a connection object.
Dim cnMax As ADODB.Connection
Set cnMax = New ADODB.Connection
Dim RMServer As String
RMServer = "SERVIDOR\INSTANCIA"
Dim sUID As String
sUID = "xxxx"
Dim sPassword As String
sPassword = "xxxx"
 
' Provide the connection string.
Dim strConn As String
 
'Use the SQL Server OLE DB Provider.
strConn = "Provider=sqloledb;Data Source=" & RMServer & ";database=BD;UID=" & sUID & ";Pwd=" & sPassword & ";"
 
'Now open the connection.
cnMax.Open strConn
 
 
' Create a recordset object.
Dim rsMax As ADODB.Recordset
Set rsMax = New ADODB.Recordset
'Dim Dato As String
'Dato = Hoja1.Range("F6")
 
If Dato <> vbNullString Then
    With rsMax
        ' Assign the Connection object.
        .ActiveConnection = cnMax
        ' Extract the required records.
        .Open "SELECT CAST(CURQTY_10 AS INT) AS CURQTY_10, RTRIM(PRTNUM_10) AS PRTNUM_10 FROM Order_Master WHERE ORDNUM_10 = '" & Dato & "'"
        ' Copy the records into cell A1 on Sheet1.
        If Not rsMax.EOF Then
            Hoja1.Range("B2").CopyFromRecordset rsMax
        Else
            MsgBox "No Existen Criterios Relacionados Con El Número De Orden Que ha Digitado", vbInformation, "Consulta De Ordenes"
            Exit Sub
        End If
        .Close
    End With
    cnMax.Close
    Set rsMax = Nothing
Else
    MsgBox "La Condición De Busqueda No Puede Estar Vacia", vbExclamation, "Consulta Condicional"
End If
End Sub
 

y en el evento change de la hora hice esto:

Código vb:

datos = "D2:D24"
If Not Application.Intersect(Target, Range(datos)) Is Nothing Then
'MsgBox "Se esta cambiando alguna celda del rango " & datos & ".", vbInformation, "Ejecutar Macro"
Consulta_Condicional (Hoja1.Range("D2"))
End If
 

Como se puede observar la macro recibe un parametro en este caso del ejemplo le puse un parametro estatico lo que deseo hacer es programar para que recibe cualquier datos del rango de celdas datos = "D2:D24" la consulta me traería dos datos por ejemplo si la celda editada es la D2, entonces esos dos datos deben ir en las celdas B2 y C2, o la menos esa es la idea.


Saludos y Gracias.

[Carlojas]

Que tal compañeros buenas tardes para todos, al fin pude solucionar el problema que tenía de la siguiente forma, no se si será las mas adecuada pero por ahora es la que me ha funcionado:

El Macro quedo así:

Código vb:

Sub Consulta_Condicional(ByVal Dato As String)
Dim cnMax As ADODB.Connection
Set cnMax = New ADODB.Connection
Dim RMServer As String
RMServer = "SERVIDOR\INSTANCIA"
Dim sUID As String
sUID = "xxxx"
Dim sPassword As String
sPassword = "xxxx"
 
Dim strConn As String
strConn = "Provider=sqloledb;Data Source=" & RMServer & ";database=BD;UID=" & sUID & ";Pwd=" & sPassword & ";"
cnMax.Open strConn
 
Dim rsMax As ADODB.Recordset
Set rsMax = New ADODB.Recordset
Dim cOrden As String
cOrden = Trim(Mid(Dato, 1, 8))
Dim Posicion As String
Posicion = Trim(Mid(Dato, 10, 10))
 
If cOrden <> vbNullString Then
    With rsMax
      .ActiveConnection = cnMax
      .Open "SELECT CAST(CURQTY_10 AS INT) AS CURQTY_10, RTRIM(PRTNUM_10) AS PRTNUM_10, RTRIM(PLANID_01) AS PLANID_01, RTRIM(PMDES1_01) AS PMDES1_01 " & _
      " FROM Order_Master INNER JOIN Part_Master ON PRTNUM_10 = PRTNUM_01 WHERE ORDNUM_10 = '" & cOrden & "'"
      
      If Not rsMax.EOF Then
         Range(Posicion).Offset(0, -2) = rsMax.Fields(0).Value
         Range(Posicion).Offset(0, -1) = rsMax.Fields(1).Value
      Else
         MsgBox "No Existen Criterios Relacionados Con El Número De Orden Que ha Digitado", vbInformation, "Consulta De Ordenes"
         Exit Sub
      End If
      .Close
    End With
    cnMax.Close
    Set rsMax = Nothing
Else
    MsgBox "La Condición De Busqueda No Puede Estar Vacia", vbInformation, "Consulta De Ordenes"
End If
End Sub
 

Y lo ejecuto en el evento Change de la hoja:

Código vb:

Private Sub Worksheet_Change(ByVal Target As Range)
Celdas = "D2:D70,G2:G70"
If Not Application.Intersect(Target, Range(Celdas)) Is Nothing Then
If Target.Value <> vbNullString Then
    Consulta_Condicional (Target & "-" & Target.Address)
End If
End If
End Sub
 

Muchas Gracias a todos.


Saludos.