Új hozzászólás Aktív témák

• #1689 vilag tag martonx #1681

  Új Válasz 2012-03-06 13:37:46 #1689

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  vilag

  tag

  válasz martonx #1681 üzenetére

  De tudomásom szerint csak excelbe történő kiírás folyik, onnan visszaolvasás nem. Legalább is ennél a folyamatnál nem. Tehát nem tudok rájönni, hogy mi indokolja egy elvileg nem érintett combobox change-ének lefutását. Mitől változna az értéke????

  Csak egy nyamvad évszám van benne.

  Akkor a kódrészletek:
  A gomb megnyomásakor ez fut le:
  Private Sub CommandButton6_Click() 'Partner rögzítése a gyakori partnerek listájára
  
  If ComboBox12.Text = "" Or ComboBox2.Text = "" Or TextBox3.Text = "" Or ComboBox1.Text = "" Then
  hiba = MsgBox("Valamely címzéshez szükséges adat hiányzik, kérlek ellenőrizd!", 16, "Címadat hiba")
  Exit Sub
  End If
  
  üzenet = MsgBox("Biztosan rögzíteni akarod a partnert a gyakori partnerek listájára az alábbi adatokkal?" + Chr(13) + Chr(13) + _
  "Név:" + Chr(9) + Chr(9) + ComboBox12.Text + Chr(13) + _
  "Település:" + Chr(9) + ComboBox2.Text + Chr(13) + _
  "Utca, hászám:" + Chr(9) + TextBox3.Text + Chr(13) + _
  "Irányítószám:" + Chr(9) + ComboBox1.Text, 36, "Partnerrögzítés")
  
  If üzenet = 2 Then
  Exit Sub
  Else
  kileptet = False
  partnerujsor = ThisWorkbook.Worksheets("Partnerek").Range("a2").End(xlDown).Row + 1
  ThisWorkbook.Worksheets("Partnerek").Range("a" + Trim(Str(partnerujsor))).Value = Trim(Str(partnerujsor - 1))
  ThisWorkbook.Worksheets("Partnerek").Range("b" + Trim(Str(partnerujsor))).Value = ComboBox12.Text
  ThisWorkbook.Worksheets("Partnerek").Range("c" + Trim(Str(partnerujsor))).Value = ComboBox2.Text
  ThisWorkbook.Worksheets("Partnerek").Range("d" + Trim(Str(partnerujsor))).Value = TextBox3.Text
  ThisWorkbook.Worksheets("Partnerek").Range("e" + Trim(Str(partnerujsor))).Value = ComboBox1.Text
  kileptet = True
  End If
  
  End Sub

  ahol kiléptet=a probléma miatt bevezetett változó

  A futkározó vezérlő change-e:

  Private Sub ComboBox4_Change() 'postázás éve
  
  If kileptet = False Then Exit Sub
  
  If eloszor = True Then Exit Sub
  CommandButton3.Enabled = True
  CommandButton2.Enabled = True
  
  If ComboBox4.MatchFound = False And Len(ComboBox4.Value) > 0 Then
  hiba = MsgBox("A postázás éve négy jegyű és nem térhet el az aktuális évtől egy évvel többel!", vbCritical + vbOKOnly, "Dátum beviteli hiba")
  ComboBox4.ListIndex = -1
  Exit Sub
  End If
  
  If ComboBox4.ListIndex = -1 Then Exit Sub
  postev = ComboBox4.Value
  If Int(postev / 4) <> postev / 4 Then szoko = False Else szoko = True
  If postho = "02" Then
  If szoko = True Then
  ComboBox6.RowSource = "napló!h2:h30"
  If ComboBox6.ListIndex = -1 Then
  ComboBox6.ListIndex = 28
  postnap = ComboBox6.Text
  End If
  Else
  ComboBox6.RowSource = "napló!h2:h29"
  If ComboBox6.ListIndex = -1 Then
  ComboBox6.ListIndex = 27
  postnap = ComboBox6.Text
  End If
  End If
  End If
  
  
  End Sub

  Mint látható az első részletben szó sem esik a Combobox4-ről.
  Így esetleg valami ötlet???

Új hozzászólás Aktív témák