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

• #3183 Postas99 őstag Postas99 #3182

  Új Válasz 2023-01-16 15:52:33 #3183

  Ú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

  

  Postas99

  őstag

  válasz Postas99 #3182 üzenetére

  A gond azzal van, hogy nem az excel megnyitásra teszed be a combobox populate opciót, hanem a combobox.change opcióra.
  Használd ezt:
  
  Sub Workbook_Open()
'ide tedd a kododat
Dim i As Long
        If Not Comb_Arrow Then
        With Me.ComboBox1
            .List = Worksheets("szerepkorok").Range("AL4", Worksheets("szerepkorok").Cells(Rows.Count, "AL").End(xlUp)).Value
            .ListRows = Application.WorksheetFunction.Min(6, .ListCount)
            .DropDown
               If Len(.Text) Then
                    For i = .ListCount - 1 To 0 Step -1
                       If InStr(1, .List(i), .Text, vbTextCompare) = 0 Then .RemoveItem i
                         Next
                          .DropDown
                           End If
         End With
         End If

End Sub

• #3143 Mr. Y őstag Postas99 #3139

  Új Válasz 2020-05-26 12:44:33 #3143

  Ú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

  

  Mr. Y

  őstag

  válasz Postas99 #3139 üzenetére

  Sehogyan sem megy.
  Szerintem nem a programban van a hiba, ha egyszer az egyik gépen megy, a másikon pedig nem.

• #3138 Mr. Y őstag Postas99 #3137

  Új Válasz 2020-05-20 19:14:56 #3138

  Ú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

  

  Mr. Y

  őstag

  válasz Postas99 #3137 üzenetére

  Most lefordul és visszajött az eredeti probléma, ami az egyes gépen nem állt fent.

  

• #3135 Mr. Y őstag Postas99 #3133

  Új Válasz 2020-05-20 06:11:38 #3135

  Ú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

  

  Mr. Y

  őstag

  válasz Postas99 #3133 üzenetére

  Független kérdés:

  Van módja annak, hogy egy szöveget ne ASCII formátumban jelenítsen meg, hanem HEX vagy BIN-ben?
  Vagy ezt a fordítót nekem kell megírnom?

• #3134 Mr. Y őstag Postas99 #3133

  Új Válasz 2020-05-19 20:31:44 #3134

  Ú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

  

  Mr. Y

  őstag

  válasz Postas99 #3133 üzenetére

  Mindenképpen megnézem, aztán visszajelzek. Köszi

• #3132 Mr. Y őstag Postas99 #3128

  Új Válasz 2020-05-19 20:16:37 #3132

  Ú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

  

  Mr. Y

  őstag

  válasz Postas99 #3128 üzenetére

  Szintén ugyan az. Fordításnál Error

• #3129 bsh addikt Postas99 #3127

  Új Válasz 2020-05-19 19:29:39 #3129

  Ú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

  

  bsh

  addikt

  válasz Postas99 #3127 üzenetére

  A VBA mint írtad az office közös makró nyelve
  hol írtam én ilyet?
  combobox feltöltése sql adatokkal az megy, köszi.
  multicolumn combobox-hoz építő jellegű hozzászólás?
  vagy ha az nem megoldható, akkor mi legyen helyette?

• #3126 Mr. Y őstag Postas99 #3125

  Új Válasz 2020-05-19 19:07:31 #3126

  Ú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

  

  Mr. Y

  őstag

  válasz Postas99 #3125 üzenetére

  Szerintem igen (egyszerre sosincs itt a két gép). Mindkettő 64Bites, így azt gyanítom, hogy azonosak a beállítások is. A debug meg a futtatás, csak más környezetből jöttem

• #3117 Mr. Y őstag Postas99 #3114

  Új Válasz 2020-05-18 20:55:14 #3117

  Ú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

  

  Mr. Y

  őstag

  válasz Postas99 #3114 üzenetére

  Persze, hogy van. 4 darab is.
  Ugyan az a verzió szerintem, mindkét gépre ugyan onnan szedtem le és ugyan azt telepítettem.
  Ugyan úgy Win10 mindkettő. Ugyan úgy Intel, csak a céges egy i5 vPro, az itthoni meg egy i9-es.
  Ami még eltérő lehet, hogy az itthoni egy ROG, így a játékok végett gondolom elég sokmindent feltelepített már, lehet ez probléma? Ütközés esetleg?

  Plusz volt egy olyan különbség, hogy az itthoni gépen a tűzfal megtámadta, mikor rámentem a Debug-ra. De miután engedélyeztem, már nem volt ezzel baja.

• #2465 sztanozs veterán Postas99 #2464

  Új Válasz 2014-06-19 15:20:29 #2465

  Ú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

  

  sztanozs

  veterán

  válasz Postas99 #2464 üzenetére

  Ez csak akkor működik, ha nem ajax kéréssel megy fel a szerverre:
  WebBrowser1.ReadyState <> WebBrowserReadyState.Complete

  Ha ajax (és nincs page redirect - pl login miatt), akkor hasznosabb volna az xmlhttprequest-et használni.

  Amúgy a fenti miért járhatatlan út?

  For x = 1 To többezer
  '... html input kitöltés
  '... html submit
  While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete
  Application.DoEvents()
  End While 'Loop
  Next

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