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

• #7767 föccer nagyúr

  Új Válasz 2010-07-23 11:28:16 #7767

  Ú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

  

  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).Selected
  If Selected.AutoFilter.Criteria1 > "" Then
  Selected.Value = Selected.AutoFilter.Criteria1
  End If
  Next
  
  End Sub

  Miért nem akarja az igazságot??? Pedig annyira egyszerű utasítást akarok kiadni, hogy pascalban már 100000x megcsináltam volna... Itt sem a szemantikával van a bajom, hanem az ismeretlen objektumokkal...

  üdv, föccer

  Excel nem ismeri az objekt pascalt?

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