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

• #29794 Delila_1 veterán tzetko #29793

  Új Válasz 2015-12-09 19:48:57 #29794

  Ú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

  

  Delila_1

  veterán

  válasz tzetko #29793 üzenetére

  Szívesen.

• #29765 Delila_1 veterán tzetko #29761

  Új Válasz 2015-12-09 07:56:51 #29765

  Ú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

  

  Delila_1

  veterán

  válasz tzetko #29761 üzenetére

  Látogass el ide.

• #18634 Mutt senior tag tzetko #18630

  Új Válasz 2013-07-26 23:02:37 #18634

  Ú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

  

  Mutt

  senior tag

  válasz tzetko #18630 üzenetére

  Hello,

  Az Excelben makroval ki akarom kapcsolni az automatikus helyreálítást. Auto openbe be akarom rakni, ha megnyitom az Excelt akkor a korábbi (bal oldalt lévő) helyre állított fájlokat automatikusa törölje.

  Csak egy munkafüzet esetén:
  ActiveWorkbook.EnableAutoRecover = False

  Miért nem kapcsolod ki véglegesen? File->Beállítások->Mentés->Automatikus helyreállítás.. pipa ki.
  VBA-ban:
  Application.AutoRecover.Enabled = False

  http://support.microsoft.com/kb/289273

  üdv

• #9703 Delila_1 veterán tzetko #9702

  Új Válasz 2011-03-19 16:10:17 #9703

  Ú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

  

  Delila_1

  veterán

  válasz tzetko #9702 üzenetére

  Ami igaz, igaz. Ehhez bizony zseninek kellett lennem.
  Örülök, hogy sikerült.

• #9701 Delila_1 veterán tzetko #9700

  Új Válasz 2011-03-19 16:03:56 #9701

  Ú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

  

  Delila_1

  veterán

  válasz tzetko #9700 üzenetére

  Biztos nem úgy hívják a munkalapodat, írd át az idézőjelek között.

• #9699 Delila_1 veterán tzetko #9697

  Új Válasz 2011-03-19 15:32:02 #9699

  Ú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

  

  Delila_1

  veterán

  válasz tzetko #9697 üzenetére

  Tényleg elkerülte a figyelmemet, elnézést.

  A Munka1 laphoz rendelt makró:

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 3 Then
  Dim usor As Long
  usor = Sheets("Munka2").Range("A50000").End(xlUp).Row + 1
  Rows(Target.Row).Copy
  beilleszt usor
  End If
  End Sub

  És most a VB szerkesztőben a füzetedhez nyiss új modult. Insert, Module.
  A kapott üres lapra ez jön:

  Sub beilleszt(usor)
  Sheets("Munka2").Select
  Rows(usor).Select
  Selection.PasteSpecial Paste:=xlPasteValues
  Application.CutCopyMode = False
  Sheets("Munka1").Select
  End Sub

  Így már értéket illeszt majd be a Munka2-re.

• #9634 Delila_1 veterán tzetko #9633

  Új Válasz 2011-03-06 16:41:57 #9634

  Ú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

  

  Delila_1

  veterán

  válasz tzetko #9633 üzenetére

  Az a dolga!

• #9632 Delila_1 veterán tzetko #9631

  Új Válasz 2011-03-06 14:04:47 #9632

  Ú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

  

  Delila_1

  veterán

  válasz tzetko #9631 üzenetére

  Nem írtad, hány oszlopod van a Munka1-en. Feltételezem, akkor kell átmásolni az adatokat, mikor minden oszlopot kitöltöttél. A makróban 3 oszlopot vettem alapul, az
  If Target.Column = 3 Then
  sorban ezt kell módosítanod. A makrót a laphoz rendeld.

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 3 Then
  Dim usor As Long
  usor = Sheets("Munka2").Range("A50000").End(xlUp).Row + 1
  Rows(Target.Row).Copy Sheets("Munka2").Cells(usor, 1)
  End If
  End Sub

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