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

• #15423 Delila_1 veterán Attas #15421

  Új Válasz 2012-11-06 10:22:30 #15423

  Ú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 Attas #15421 üzenetére

  A ComboBox1 RowSource tulajdonságához írd be: Adattábla!A1:A2

  Jön a 2 makró:
  Private Sub ComboBox1_AfterUpdate()
  If Me.ComboBox1.Text = "Gyümölcs" Then
  ComboBox2.List = Sheets("Adattábla").Range("B1:B5").Value
  Else
  ComboBox2.List = Sheets("Adattábla").Range("B8:B11").Value
  End If
  End Sub

  Private Sub CommandButton1_Click()
  Sheets("Munka2").Cells(1) = ComboBox2
  End Sub

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