Programación General > Visual Basic para principiantes

 Problema con codigo-cargar info a userform

(1/1)

mari_hitz:
Buenos dias.

Soy nueva en el foro y en VBA también. Mi nombre es Marina. Tengo un inconveniente con una pequeña herramienta que estoy creando para que las personas de mis equipo me envien informacion sobre inconvenientes.
Esta informacion la cargan en una userform y va directo a una hoja de calculo. Lo que intento hacer es que la info de esa hoja se cargue en una userform nueva diseñada para ver los inconvenientes que han cargado.
He encontrado un codigo que utilize para hacer eso. En esta userform tengo un ComboBox que debe traer la lista de inconvenientes cargados. Esto funciona, pero cuando se elige el inconveniente me da error el codigo en la parte que dice Offset. Dado que no tengo conocimiento no se que me esta indicando este error.  GRACIAS!
El codigo que tengo es el siguiente:


--- Código: Visual Basic ---Private Sub ComboBox2_Change()Dim r As Integerr = 2'Load form fieldsIf OptionIssue = True ThenDo Until Sheet3.Range("B" & r - 1) = ComboBox2.TextIf Sheet3.Range("B" & r) = ComboBox2.Text ThenTextBox 1 = Sheet3.Range("B" & r).Offset(1, 0)TextBox 6 = Sheet3.Range("B" & r).Offset(1, 0)TextBox 2 = Sheet3.Range("B" & r).Offset(2, 0)r = r + 1Elser = r + 1End Sub End Sub Private Sub CommandButton2_Click()Unload UserForm3End SubPrivate Sub CommandButton3_Click()Dim olApp As Outlook.ApplicationDim olMail As MailItemSet olApp = New Outlook.ApplicationSet olMail = olApp.CreateItem(olMailItem)With olMail.To = "xxx@hotmail.com".Subject = "Your case reply".Display End WithSet olMail = NothingSet olApp = Nothing End SubPrivate Sub UserForm_Acivate()OptionIssue = True    ComboBox2.Clear    Dim row As Integer    row = 2    Do Until Sheet3.Range("A" & row + 4) = ""       ComboBox2.AddItem Sheet3.Range("B" & row + 2)        row = row + 5    LoopTextBox1 = ""TextBox2 = ""TextBox6 = ""ComboBox2 = "" End Sub Private Sub OptionIssue_Click()TextBox1 = ""TextBox6 = ""TextBox2 = "" 'Load list of templates'Starts Search engineComboBox2.ClearDim row As Integerrow = 2Do Until Sheet3.Range("A" & row + 4) = ""ComboBox2.AddItem Sheet3.Range("B" & row + 2)row = row + 5 Loop End Sub   

Navegación

[0] Índice de Mensajes