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

• #14934 Delila_1 veterán CHANNIS #14933

  Új Válasz 2012-09-13 07:11:56 #14934

  Ú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 CHANNIS #14933 üzenetére

  Szívesen.

• #14932 Delila_1 veterán CHANNIS #14930

  Új Válasz 2012-09-12 20:00:26 #14932

  Ú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 CHANNIS #14930 üzenetére

  Átalakítottam.

  Sub alma()
  Dim sor%, tol%, ig%, usor%, nev$
  Dim WS1 As Worksheet, WS2 As Worksheet
  Set WS1 = Worksheets("Munka1")
  Set WS2 = Worksheets("Munka2")
  usor% = WS2.Range("I" & Rows.Count).End(xlUp).Row
  
  For sor% = 3 To usor%
  nev$ = WS2.Range("I" & sor%)
  ig% = Application.WorksheetFunction.Match(nev$, WS1.Columns(2), 0)
  tol% = ig%
  Do While WS1.Cells(ig%, 2) = nev$
  ig% = ig% + 1
  Loop
  
  WS1.Rows(ig%).EntireRow.Insert
  WS1.Cells(ig%, "B") = WS2.Cells(sor%, "I")
  WS1.Cells(ig%, "C") = WS2.Cells(sor%, "G")
  WS1.Cells(ig%, "E") = WS2.Cells(sor%, "J")
  WS1.Cells(ig%, "G") = WS2.Cells(sor%, "K")
  
  WS1.Rows(ig% + 1).EntireRow.Insert
  WS1.Rows(ig% + 2).EntireRow.Insert
  Next
  End Sub

• #14905 Delila_1 veterán CHANNIS #14900

  Új Válasz 2012-09-11 08:31:05 #14905

  Ú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 CHANNIS #14900 üzenetére

  Tedd ki a füzetet egy elérhető helyre. Nincs időm újra beirkálni az adataidat egy másik helyre. Ha azonnal az igazi helyükkel teszed fel a kérdést, már kész lenne. A makrót az előzően betett képeken szereplő oszlopokhoz írtam meg. Nem értem, miért más helyekre kérdeztél rá, nem a valósra.

• #14890 Delila_1 veterán CHANNIS #14882

  Új Válasz 2012-09-09 07:30:49 #14890

  Ú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 CHANNIS #14882 üzenetére

  Küldöm az ígért makrót. A lista1 nálam az első lapon van, a lista2 pedig a másodikon.
  Ezt adom meg a két 'Set =' kezdetű sorban.

  Sub alma()
  Dim sor%, tol%, ig%, usor%, nev$, aktual%
  Dim WS1 As Worksheet, WS2 As Worksheet
  Set WS1 = Worksheets(1)
  Set WS2 = Worksheets(2)
  usor% = WS2.Range("J" & Rows.Count).End(xlUp).Row
  
  For sor% = 3 To usor%
  nev$ = WS2.Range("J" & sor%)
  aktual% = Application.WorksheetFunction.Match(nev$, WS1.Columns(2), 0)
  tol% = aktual%
  Do While WS1.Cells(aktual%, 2) = nev$
  aktual% = aktual% + 1
  Loop
  ig% = aktual% - 1
  
  WS1.Rows(ig% + 1).EntireRow.Insert
  WS1.Cells(ig% + 1, 1) = WS1.Cells(ig%, 1)
  WS1.Cells(ig% + 1, 2) = WS1.Cells(ig%, 2)
  WS1.Cells(ig% + 1, 4) = WS2.Cells(sor%, "K")
  
  WS1.Rows(ig% + 2).EntireRow.Insert
  WS1.Rows(ig% + 3).EntireRow.Insert
  WS1.Cells(tol%, 4) = "=SUM(D" & tol% + 1 & ":D" & ig% + 3 & ")"
  Next
  End Sub

• #14886 Delila_1 veterán CHANNIS #14884

  Új Válasz 2012-09-08 17:40:25 #14886

  Ú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 CHANNIS #14884 üzenetére

  Halasszuk el holnapra, most elhívtak. Hátha addig válaszol valaki. Elnézést.

• #14883 Delila_1 veterán CHANNIS #14882

  Új Válasz 2012-09-08 17:11:40 #14883

  Ú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 CHANNIS #14882 üzenetére

  A lista1-ben a 4. sor alatt végül 4 sor lesz, ahol az A oszlopban "aa", a B-ben "Alma" szerepel?

• #14882 CHANNIS csendes tag CHANNIS #14881

  Új Válasz 2012-09-08 17:05:02 #14882

  Ú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

  

  CHANNIS

  csendes tag

  válasz CHANNIS #14881 üzenetére

  

  A lista2

  Nem tudom érthető-e, így?

• #14880 Delila_1 veterán CHANNIS #14878

  Új Válasz 2012-09-08 16:55:19 #14880

  Ú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 CHANNIS #14878 üzenetére

  Tedd fel a fájlt, akár hamis adatokkal egy fájlfeltöltőre - csak az adattípusok (dátum, szöveg, szám) egyezzenek meg az eredetivel. Ha van lehetőséged link megadására, így megnézhetjük a feladatot.

• #14877 Delila_1 veterán CHANNIS #14874

  Új Válasz 2012-09-08 16:41:49 #14877

  Ú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 CHANNIS #14874 üzenetére

  Válasznál ennek az ablaknak kell(ene) megjelennie.

  

  A kép feltöltése, az OK megnyomása után jelenik meg a beillesztésre vonatkozó ablak.

• #14871 Delila_1 veterán CHANNIS #14868

  Új Válasz 2012-09-08 16:14:29 #14871

  Ú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 CHANNIS #14868 üzenetére

  Fájl kiválasztása, OK. Ha ez megvan, Beillesztés.
  

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