Cita:
Empezado por Guadalupe
Hola ya lo resolvi, gracias, todos cooperamos para que me funcionara entre mis libros y ustedes, ya corre hasta aqui...
Les mando el codigo, talves lespueda servir de algo en un futuro.
Dim i As Integer
Dim cad As String
cad = ""
For i = 1 To 20
cad = oHoja2.Range("B" & i).value
If cad = Nothing Then ' y si ya no tiene datos que salga
Exit For
End If
If oHoja2.Range("B" & i).value = "GRANDE" Then
oHoja2.Range("Q1") = "ID_PRODUCTO" ' Me pone una etiqueta en la Q1
oHoja2.Range("Q" & i) = "33"
Else
If oHoja2.Range("B" & i).value = "CHICO" Then
oHoja2.Range("Q" & i) = "34" ' Id Producto
End if
|
hola quizás un poco tarde:: pero estoy empesando en esto de la programada y pues tu codigo creo k me sirve pero solo tengo un problema en la parte:
For i = 1 To 20
cad = oHoja2.Range("B" & i).value
If cad = Nothing Then ' y si ya no tiene datos que salga
Exit For
End If me salta el siguiente error la variable oHoja2 se utiliza antes de que se le haya asignado un valor. prodria darse una excepción de referencia nula en tiempo de ejecución
este s el codigo que yo tengo hasta el momento
Option Explicit On
' Para acceder a OleDB
Imports system.data
Imports System.Data.OleDb
Imports Microsoft.Office.Interop
Dim i As Integer
Dim cad As String
Dim oHoja2 As Excel.Range
' crear conexión
Dim oConexion As New System.Data.OleDb.OleDbConnection()
oConexion.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0; Data Source='D:\PROYECTOS Y PROGRAMAS EN VE2005\LIBRO2.xls';Extended Properties=Excel 8.0;"
' crear adaptador
Dim oDataAdapter As New OleDbDataAdapter("SELECT * FROM [Hoja1$]", oConexion)
cad = ""
For i = 1 To 20
cad = oHoja2.Range("A" & i).Value
If cad = Nothing Then ' y si ya no tiene datos que salga
Exit For
End If
If oHoja2.Range("B" & i).Value = TextBox1.Text Then
Label2.Text = "labelllll"
'oHoja2.Range("Q1") = "ID_PRODUCTO" ' Me pone una etiqueta en la Q1
'oHoja2.Range("Q" & i) = "33"
'ElseIf oHoja2.Range("B" & i).Value = "CHICO" Then
'oHoja2.Range("Q" & i) = "34" ' Id Producto
End If
Next
End Sub
creo que me seria muy util que pusieras el codigo completo aaa si es que lees esto espero que siii!!!
![Smilie](http://www.clubdelphi.com/foros/images/smilies/smile.gif)
![Smilie](http://www.clubdelphi.com/foros/images/smilies/smile.gif)
![Smilie](http://www.clubdelphi.com/foros/images/smilies/smile.gif)