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

• #7769 föccer nagyúr föccer #7768

  Új Válasz 2010-07-23 12:12:20 #7769

  Ú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

  

  föccer

  nagyúr

  válasz föccer #7768 üzenetére

  Private Sub CommandButton1_Click()
  Dim i As Integer
  Dim w As Worksheet

  Set w = Worksheets("Receptek")
  For i = 1 To 20
  If w.Cells(2, i).AutoFilter > "" Then
  Cells(2, i).Value = Selected.AutoFilter.Filters
  End If
  Next

  End Sub

  Nem spammelek, csak próbálkozom Hogy lásd, hogy nem csak a sültgalambot várom )

  Köszi,

  üdv, föccer

  mod:

  Private Sub CommandButton1_Click()
  Dim i As Integer
  Dim w As Worksheet
  
  Set w = Worksheets("Receptek")
  For i = 1 To 20
  If w.Cells(2, i).AutoFilter > "" Then
  w.Cells(2, i).Value = w.Cells(2, i).AutoFilter.Criteria1
  End If
  Next
  
  End Sub

  objekt required. Mindezt a w.cells(2, i).value = w. cells(2, i).autofilter.criteria1 sorra...

  üdv, föccer

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