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

• #20955 Delila_1 veterán #02644736 #20954

  Új Válasz 2014-03-16 13:11:46 #20955

  Ú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

  

  Delila_1

  veterán

  válasz #02644736 #20954 üzenetére

  Ez változik:

  If f Then
  Range("K" & usor) = TextBox11 + 1 & "/" & Year(Date)
  Else
  Range("K" & usor) = TextBox11 & "/" & Year(Date)
  End If

  Nem írtad, mihez kell a range. Feltételezem, hogy a formon lévő listboxhoz, vagy comboboxhoz, vagy egyéb, listát tartalmazó objektumhoz.

  Private Sub UserForm_Activate()
  Dim usor As Long
  usor = Sheets("Munka1").Range("A" & Rows.Count).End(xlUp).Row
  ComboBox1.List = Sheets("Munka1").Range("A2:A" & usor).Value
  End Sub

  A ComboBox1.List = Sheets("Munka1").Range("A2:A" & usor).Value sort bemásolhatod az előbbi makró végére is, hogy a lapra felírás után frissüljön a lista.

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