ya lo resolvi ;)
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
|