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

• #40634 Pakliman tag p5quser #40632

  Új Válasz 2019-04-03 12:15:06 #40634

  Ú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

  

  Pakliman

  tag

  válasz p5quser #40632 üzenetére

  Szia!

  A
  Dim stdb As Workbook
Dim stnm As String

  sorokat töröld a Workbook_Open metódusból (ha még nem tetted meg), mert különben kizárólag ezek a HELYBEN ÉRVÉNYES változók veszik fel az értékeket (ez miatt hasal el a program is, mert ott nincs értéke az stnm-nek!).

  Private Sub Workbook_Open()
stnm = Application.GetOpenFilename
If stnm <> "" Then
Set stdb = Workbooks.Open(stnm)
End If
End Sub

  A Workbooks(stnm).Sheets(1).Range("A1:B" & Rows.Count).AutoFilter field:=2, Criteria1:="*" & TextBox2.Value & "*" helyett így már használhatod a
  stdb.Sheets(1).Range("A1:B" & Rows.Count).AutoFilter field:=2, Criteria1:="*" & TextBox2.Value & "*" formát!

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