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

• #39499 ny.janos tag littleNorbi #39494

  Új Válasz 2018-10-30 18:23:06 #39499

  Ú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

  

  ny.janos

  tag

  válasz littleNorbi #39494 üzenetére

  Néha azért a kérést megfogalmazónak nem árt óvatosan elmondani, hogy amit kér, arra létezik egy másik lehetséges megoldás is, ami neki jobb, mint amit ő megfogalmazott.

  Nehezen tudom elképzelni, hogy bárki is kérte így, kényelmes lesz neki, ha a táblázatban 40 település lesz, s ezáltal 40 plusz fül. Szerintem nem használná mind. Én is azt mondom, hogy autoszűrő, annyival kiegészítve, hogy a leggyakrabban használt szűrési feltételekre egyéni nézeteket hoznék létre. Így talán létrejöhet a kecske és káposzta is esete.

• #39495 Delila_1 veterán littleNorbi #39494

  Új Válasz 2018-10-30 17:15:58 #39495

  Ú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 littleNorbi #39494 üzenetére

  Másold a lap moduljába a makrót.

  Private Sub Worksheet_Change(ByVal Target As Range)
Dim lapnev, ide As Long

If Target.Column = 4 And Target.Value <> "" And Target.Count = 1 Then
On Error Resume Next
Set lapnev = Sheets(Target.Value)
If Err.Number <> 0 Then
MsgBox "Nincs " & Target & " nevű lap", vbCritical
On Error GoTo 0
Exit Sub
End If
ide = Sheets(lapnev).Range("A" & Rows.Count).End(xlUp).Row + 1
Range("A" & Target.Row & ":D" & Target.Row).Copy Sheets(lapnev).Cells(ide, 1)
End If
End Sub

  Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

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