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

• #33659 Fferi50 Topikgazda bteebi #33655

  Új Válasz 2017-01-15 15:26:06 #33659

  Ú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

  Topikgazda

  válasz bteebi #33655 üzenetére

  Szia!

  " ha megosztom a munkafüzetet (sokan használnák), akkor nem működik az archiválás, mert - gondolom - az "Archivált" lapon nem tudja megtalálni az utolsó sort."
  Közös használat esetén csak teljes sorokat vagy oszlopokat lehet törölni, cella blokkokat nem, ezért nem működik abban az esetben a makród.
  Range(Sheets("Adatok").Cells(Target.Row, 2), Sheets("Adatok").Cells(Target.Row, 6)).Delete Shift:=xlUp

  sor helyett:
  Sheets("Adatok").Cells(Target.Row, 2).EntireRow.Delete

  Üdv.

• #33658 Delila_1 veterán bteebi #33655

  Új Válasz 2017-01-15 14:57:09 #33658

  Ú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 bteebi #33655 üzenetére

  Nálam működik így:

  Private Sub Worksheet_Change(ByVal Target As Range)
Dim valasz As String, firstemptyrow As Long
If Target.Column = 6 And Target = "Archiválható" Then
Application.EnableEvents = False
rwind = Target.Row
valasz = MsgBox("Szeretnéd archiválni?", vbYesNo, "Archiválás")
If valasz = vbYes Then
firstemptyrow = Sheets("Archivált").Cells(Rows.Count, 2).End(xlUp).Row + 1
Range(Cells(rwind, 2), Cells(rwind, 6)).Cut Destination:=Sheets("Archivált").Cells(firstemptyrow, 2)
Range(Cells(rwind, 1), Cells(rwind, 6)).Delete Shift:=xlUp
Else: MsgBox "Nem lett archiválva!", vbOKOnly, "Archiválás"
End If
Sheets("Adatok").Cells(rwind, 2).Select
Application.EnableEvents = True
End If
End Sub

• #33657 bteebi veterán bteebi #33655

  Új Válasz 2017-01-14 22:35:11 #33657

  Ú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

  

  bteebi

  veterán

  válasz bteebi #33655 üzenetére

  Meg egyébként azt se értem, hogy ha a két Target-es sort megpróbálom összevonni:

  If Target.Column = 6 And Target = "Archiválható" Then

  Akkor valamiért Type mismatch hibaüzenetet kapok erre a sorra .

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