• Viernes 6 de Diciembre de 2024, 05:40

Autor Tema:  Problema con codigo-cargar info a userform  (Leído 2374 veces)

mari_hitz

  • Nuevo Miembro
  • *
  • Mensajes: 1
    • Ver Perfil
Problema con codigo-cargar info a userform
« en: Jueves 9 de Junio de 2011, 14:14 »
0
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
  1. Private Sub ComboBox2_Change()
  2. Dim r As Integer
  3. r = 2
  4. 'Load form fields
  5. If OptionIssue = True Then
  6. Do Until Sheet3.Range("B" & r - 1) = ComboBox2.Text
  7. If Sheet3.Range("B" & r) = ComboBox2.Text Then
  8. TextBox 1 = Sheet3.Range("B" & r).Offset(1, 0)
  9. TextBox 6 = Sheet3.Range("B" & r).Offset(1, 0)
  10. TextBox 2 = Sheet3.Range("B" & r).Offset(2, 0)
  11. r = r + 1
  12. Else
  13. r = r + 1
  14. End Sub
  15.  
  16. End Sub
  17.  
  18. Private Sub CommandButton2_Click()
  19. Unload UserForm3
  20. End Sub
  21. Private Sub CommandButton3_Click()
  22. Dim olApp As Outlook.Application
  23. Dim olMail As MailItem
  24. Set olApp = New Outlook.Application
  25. Set olMail = olApp.CreateItem(olMailItem)
  26. With olMail
  27. .To = "xxx@hotmail.com"
  28. .Subject = "Your case reply"
  29. .Display
  30.  
  31. End With
  32. Set olMail = Nothing
  33. Set olApp = Nothing
  34.  
  35. End Sub
  36. Private Sub UserForm_Acivate()
  37. OptionIssue = True
  38.     ComboBox2.Clear
  39.     Dim row As Integer
  40.     row = 2
  41.     Do Until Sheet3.Range("A" & row + 4) = ""
  42.        ComboBox2.AddItem Sheet3.Range("B" & row + 2)
  43.         row = row + 5
  44.     Loop
  45. TextBox1 = ""
  46. TextBox2 = ""
  47. TextBox6 = ""
  48. ComboBox2 = ""
  49.  
  50. End Sub
  51.  
  52. Private Sub OptionIssue_Click()
  53. TextBox1 = ""
  54. TextBox6 = ""
  55. TextBox2 = ""
  56.  
  57. 'Load list of templates
  58. 'Starts Search engine
  59. ComboBox2.Clear
  60. Dim row As Integer
  61. row = 2
  62. Do Until Sheet3.Range("A" & row + 4) = ""
  63. ComboBox2.AddItem Sheet3.Range("B" & row + 2)
  64. row = row + 5
  65.  
  66. Loop
  67.  
  68. End Sub
  69.  
  70.  
  71.