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

• #39097 Mutt senior tag -KP- #39094

  Új Válasz 2018-09-09 23:26:26 #39097

  Ú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 -KP- #39094 üzenetére

  Szia,

  Legördülő menüt az Adatok -> Érvényesítés opcióval tudsz csinálni.
  Megjelenítésben az INDEX és HOL.VAN páros kell. A HOL.VAN megmondja, hogy a kiválasztott elem hányadik sorban van az eredeti táblázatban és az INDEX pedig egy tartományból a megadott sor és oszlop elemét tudja visszaadni.

  üdv

• #26668 Delila_1 veterán -KP- #26667

  Új Válasz 2015-04-24 10:07:10 #26668

  Ú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 -KP- #26667 üzenetére

  Nincs mit.

• #26666 Delila_1 veterán -KP- #26665

  Új Válasz 2015-04-24 09:58:02 #26666

  Ú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 -KP- #26665 üzenetére

  Természetesen.

  Sub Legnagyobb()
  Dim sor As Long, usor As Long
  usor = Range("A" & Rows.Count).End(xlUp).Row
  
  For sor = usor To 2 Step -1
  If Len(Cells(sor, 1)) = 8 Then
  If Left(Cells(sor, 1), 6) = Left(Cells(sor - 1, 1), 6) Or _
  Cells(sor - 1, 1) = "" Then
  Rows(sor - 1).EntireRow.Delete
  End If
  End If
  Next
  End Sub

• #26659 Delila_1 veterán -KP- #26658

  Új Válasz 2015-04-24 07:08:54 #26659

  Ú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 -KP- #26658 üzenetére

  Nincs mit, szívesen.

• #26656 Delila_1 veterán -KP- #26649

  Új Válasz 2015-04-23 14:47:20 #26656

  Ú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 -KP- #26649 üzenetére

  Az Fferi által említett makró:

  Sub Legnagyobb()
  Dim sor As Long, usor As Long
  usor = Range("A" & Rows.Count).End(xlUp).Row
  
  For sor = usor To 2 Step -1
  If Left(Cells(sor, 1), 6) = Left(Cells(sor - 1, 1), 6) Or _
  Cells(sor - 1, 1) = "" Then
  Rows(sor - 1).EntireRow.Delete
  End If
  Next
  End Sub

  Az első oszlopban többször szereplő programneveket gyomlálja ki.
  Nem említetted, hogy vannak-e üres sorok a tartományban. Beleírtam, hogy azokat is törölje.

• #26647 Fferi50 Topikgazda -KP- #26646

  Új Válasz 2015-04-23 13:22:27 #26647

  Ú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 -KP- #26646 üzenetére

  Szia!

  Indulj el az így rendezett listád utolsó sorától felfelé. Ez a sor megmarad, az előző sorokat addig törlöd visszafelé, amíg az első 6 karaktere ugyanaz mint a megmaradó(utolsó) soré. Ha változott az első 6 karakter, kezded újra az eljárást (az eltérő sor megmarad, a többit visszafelé törlöd, amíg másik programot nem találsz.)

  Arra figyelj, hogy a sor kitörlése után az aktulális sor száma nem változik meg, de helyére bekerül az alatta levő sor, ezért mindig vissza kell lépni egyet a sorokon.

  Üdv.

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