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

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

  Új Válasz 2010-07-23 11:40:07 #7768

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

  Következő próba:

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

  Azt mondja, hogy Range osztály select metódusa hibás...

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