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

• #10989 mr.nagy tag Delila_1 #10983

  Új Válasz 2011-07-30 19:08:28 #10989

  Ú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

  

  mr.nagy

  tag

  válasz Delila_1 #10983 üzenetére

  Végülis ennek a használatánál maradtam, azonban a táblázatba építve egy hiba üzenetet kapok:
  Object variable or With block variable not set

  Így néz ki most a teljes kód:
  Private Sub CommandButton1_Click()
  
  Sheets("eladás").Activate
  Sheets("eladás").Range("A1").Select
  Selection.QueryTable.Refresh BackgroundQuery:=False
  
  Sheets("készlet").Activate
  Sheets("készlet").Range("A1").Select
  Selection.QueryTable.Refresh BackgroundQuery:=False
  
  Sheets("kiárusítás").Activate
  
  MsgBox ("KÉSZ!!!")
  
  End Sub
  
  Private Sub Worksheet_Change(ByVal Target As Range)
  Range("A7").Select
  If Intersect(Range("E3"), Target) = "" Then Exit Sub
  If Not Intersect(Range("E3"), Target) Is Nothing Then _
  Selection.AutoFilter Field:=1, Criteria1:=Range("E3")
  End Sub

  Mi lehet a hiba? Tudsz rá valami megoldást?

• #10984 mr.nagy tag Delila_1 #10983

  Új Válasz 2011-07-29 10:26:04 #10984

  Ú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

  

  mr.nagy

  tag

  válasz Delila_1 #10983 üzenetére

  Köszönöm!

  Az megoldható, hogy az autoszűrő ne is látszódjon, magyarul ne lehessen levenni és az egészet látni?

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