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

• #47870 Fferi50 őstag ny.erno #47869

  Új Válasz 2021-11-24 20:57:00 #47870

  Ú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

  

  Fferi50

  őstag

  válasz ny.erno #47869 üzenetére

  Szia!
  If Sheets.Count = 1 Then
Set sh2 = ActiveWorkbook.Sheets.Add(after:=sh1)
Else
Set sh2 = Sheets(2)
End If
  Ez a rész akkor ad hozzá új munkalapot, ha csak egy lap van a munkafüzetben. Ha több, akkor a második munkalapot használja - amin elvileg az első futás után a pivot keletkezik.
  Ugye első futás előtt követelmény, hogy csak 1 munkalap legyen a füzetben, így a futáskor létrehozott munkalap lesz a második.
  Ismételt futás után már nem kell a pivotot létrehozni, az ott van a második munkalapon, csak aktualizálni kell.
  If .Value <> "" Then .CurrentRegion.ClearContents
If sh1.Range("D1").Value <> "" Then sh1.Range("D1").CurrentRegion.ClearContents
If sh1.Range("F1").Value <> "" Then sh1.Range("F1").CurrentRegion.ClearContents
  Ez a 3 sor törli a második munkalap D1-es területét és az első munkalap D1 és F1 oszlopát.
  Szerintem nem lenne szükség törlésre.
  Mi miatt volt nálad a külön törlésekre szükség?
  Üdv.

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