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

• #42455 Delila_1 veterán Nagyzoli27 #42453

  Új Válasz 2019-12-11 11:08:56 #42455

  Ú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 Nagyzoli27 #42453 üzenetére

  Szívesen.

• #42450 Delila_1 veterán Nagyzoli27 #42448

  Új Válasz 2019-12-10 16:57:28 #42450

  Ú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 Nagyzoli27 #42448 üzenetére

  Feltöltöttem
  Nagyon sok volt a B oszlop üres cellája. Azzal kellett volna kezdenem, hogy az ezekhez tartozó ID-ket ki kellett volna törölnöm a D oszlopból a DARABTELI függvény segítségével.

• #42449 Delila_1 veterán Nagyzoli27 #42448

  Új Válasz 2019-12-10 16:39:53 #42449

  Ú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 Nagyzoli27 #42448 üzenetére

  Megnyitod mindkét füzetet, a cross.xlsx-re állsz, majd indítod a makrót.

• #42446 Delila_1 veterán Nagyzoli27 #42445

  Új Válasz 2019-12-10 16:12:25 #42446

  Ú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 Nagyzoli27 #42445 üzenetére

  Ez ugyanaz, mint az előző. Ebbe a füzetben is indíthatod a makrót.

• #42444 Delila_1 veterán Nagyzoli27 #42443

  Új Válasz 2019-12-10 15:45:59 #42444

  Ú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 Nagyzoli27 #42443 üzenetére

  Mert annyi adat van a 2. táblában, ahol az első duplikációi nem szerepelnek.

• #42442 Delila_1 veterán Nagyzoli27 #42440

  Új Válasz 2019-12-10 15:42:23 #42442

  Ú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 Nagyzoli27 #42440 üzenetére

  Próbáld Itt.

• #42439 Delila_1 veterán Nagyzoli27 #42437

  Új Válasz 2019-12-10 15:26:15 #42439

  Ú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 Nagyzoli27 #42437 üzenetére

  Lehet, hogy csak egyszer lesz szükséged a makró eredményére. Itt van.

• #42438 Delila_1 veterán Nagyzoli27 #42437

  Új Válasz 2019-12-10 15:00:06 #42438

  Ú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 Nagyzoli27 #42437 üzenetére

  Módosítottam a makrón. A sok sorod miatt a változókat Long típusúnak kellett megadni, és azt nem írtad, hogy az első táblázatban vannak tételek, amikhez nem tartozik kapcsolódó ID.

  Működik a makró, de nagyon sokáig fut. Érdemes megnézned Mutt ajánlatát.
  Azért bemásolom ide a makrót. Kibővítettem azzal, hogy az A oszlop tartalmát átmásolja a D oszlopba, majd eltávolítja az ismétlődéseket. A makrót tartalmazó fájlt makróbarátként kell elmenteni.

  Sub Kapcsolodo()
Dim sor1 As Long, sor2 As Long, usor1 As Long, usor2 As Long

Columns("A:A").Copy Range("D1")
Columns("D:D").RemoveDuplicates Columns:=1, Header:=xlYes
Range("B1").Copy Range("E1")

usor1 = Range("A1").End(xlDown).Row
usor2 = Range("D1").End(xlDown).Row

For sor2 = 2 To usor2
For sor1 = 2 To usor1
If Cells(sor1, 2) <> "" Then
If Cells(sor2, 4) = Cells(sor1, 1) Then
If Cells(sor2, 5) = "" Then
Cells(sor2, 5) = Cells(sor1, 2)
Else
Cells(sor2, 5) = Cells(sor2, 5) & "|" & Cells(sor1, 2)
End If
End If
End If
Next
Next
MsgBox "Kész van", vbInformation, "Értesítés"
End Sub

• #42436 Mutt senior tag Nagyzoli27 #42432

  Új Válasz 2019-12-10 13:33:00 #42436

  Ú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 Nagyzoli27 #42432 üzenetére

  Szia,

  Makró nélkül az Excel 2010-től elérhető Power Query-t tudom javasolni.
  Ebben a hozzászólásban látod a lépéseket (a 7-10-es lépések neked nem kellenek).

  üdv

• #42435 Delila_1 veterán Nagyzoli27 #42432

  Új Válasz 2019-12-10 13:13:15 #42435

  Ú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 Nagyzoli27 #42432 üzenetére

  Egy rövid makróval megoldható.

  Sub Kapcsolodo()
Dim sor1 As Integer, sor2 As Integer, usor1 As Integer, usor2 As Integer

usor1 = Range("A" & Rows.Count).End(xlUp).Row
usor2 = Range("D" & Rows.Count).End(xlUp).Row

For sor2 = 2 To usor2
For sor1 = 2 To usor1
If Cells(sor2, "D") = Cells(sor1, 1) Then
If Cells(sor2, 5) = "" Then
Cells(sor2, 5) = Cells(sor1, 2)
Else
Cells(sor2, 5) = Cells(sor2, 5) & " | " & Cells(sor1, 2)
End If
End If
Next
Next
End Sub

• #41821 Delila_1 veterán Nagyzoli27 #41820

  Új Válasz 2019-09-27 11:39:42 #41821

  Ú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 Nagyzoli27 #41820 üzenetére

  Nem lehet, de a keresőben a célkereszt szó beírásával találsz pár makrós megoldást.
  Ha nem erre gondoltál, a cellába beírt =CÍM(SOR();OSZLOP())függvény beírja a címet.

• #41595 lappy őstag Nagyzoli27 #41594

  Új Válasz 2019-08-16 12:42:53 #41595

  Ú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

  

  lappy

  őstag

  válasz Nagyzoli27 #41594 üzenetére

  saját függvénnyel
  Function RemoveDupes2(txt As String, Optional delim As String = " ") As String
Dim x
'Updateby20140924
With CreateObject("Scripting.Dictionary")
.CompareMode = vbTextCompare
For Each x In Split(txt, delim)
If Trim(x) <> "" And Not .exists(Trim(x)) Then .Add Trim(x), Nothing
Next
If .Count > 0 Then Remove= Join(.keys, delim)
End With
End Function

• #41238 Laciahegyrol csendes újonc Nagyzoli27 #41237

  Új Válasz 2019-06-21 15:38:46 #41238

  Ú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

  

  Laciahegyrol

  csendes újonc

  válasz Nagyzoli27 #41237 üzenetére

  Szuper, örülök, ha segítettem.
  Ha lehúzás előtt a CTRL-t nyomod, előfordul, hogy más eredményt kapsz: nem számolni kezd egyesével, hanem ismételgeti a korábban beírt számokat...

• #41235 Laciahegyrol csendes újonc Nagyzoli27 #41234

  Új Válasz 2019-06-21 15:17:13 #41235

  Ú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

  

  Laciahegyrol

  csendes újonc

  válasz Nagyzoli27 #41234 üzenetére

  Itt van egy link, google táblázatokban megcsináltam:

  https://docs.google.com/spreadsheets/d/1KAFxy47xH-IiYoxKB9cQ7qoL2YmWJVq20yJHJsGSgnM/edit?usp=sharing

• #41233 Laciahegyrol csendes újonc Nagyzoli27 #41232

  Új Válasz 2019-06-21 13:00:40 #41233

  Ú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

  

  Laciahegyrol

  csendes újonc

  válasz Nagyzoli27 #41232 üzenetére

  Nem-nem! Valószínű nem fogalmaztam jól.
  0-át és 1-et begépeled.Utána kijelölöd a két cellát, a cella jobb alján levő kis fekete négyzettel pár másodperc az aljáig lehúzni.
  Leszűrni a 0 vagy 1-re szintén pár másodperc és már látod is az összes páros vagy páratlan sort.
  Kijelölni az első sor kijelölése után CTRL+Shift+le nyíl, jobb klikk, törlés. Kész.

• #41231 Laciahegyrol csendes újonc Nagyzoli27 #41229

  Új Válasz 2019-06-21 10:58:55 #41231

  Ú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

  

  Laciahegyrol

  csendes újonc

  válasz Nagyzoli27 #41229 üzenetére

  Szia,
  Nekem az jutott eszembe, hogy egy segédoszlopba beírod az első sorba, hogy 0, a másodikba, hogy 1. Lehúzod addig, amíg kell. Leszűröd a törlendő sorhoz tartozó számot, majd kijelölöd mindet és törlöd. Ezután segédoszlopot eltávolítod.
  Üdv.

• #41214 lappy őstag Nagyzoli27 #41213

  Új Válasz 2019-06-17 10:02:39 #41214

  Ú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

  

  lappy

  őstag

  válasz Nagyzoli27 #41213 üzenetére

  képlet nincs csak macro-val lehet
  kivéve akkor ha minden esetben a szövegben azonos helyen van a szám.
  a te példád szerint a 3 karaktertől

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