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

• #43852 Delila_1 veterán commanDOS #43846

  Új Válasz 2020-05-05 19:43:29 #43852

  Ú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 commanDOS #43846 üzenetére

  Nagyon szívesen.

• #43844 Delila_1 veterán commanDOS #43843

  Új Válasz 2020-05-05 11:53:15 #43844

  Ú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 commanDOS #43843 üzenetére

  Hajrá!

• #43841 Delila_1 veterán commanDOS #43837

  Új Válasz 2020-05-05 11:46:44 #43841

  Ú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 commanDOS #43837 üzenetére

  Írtam hozzá egy makrót. A 6 lap az első helyen legyen, és vegyél fel egy új lapot Összegző névvel, vagy írd át a makróban ezt a nevet.
  Ha az egyes lapokon foglalt az AA oszlop, akkor a makróban 3 helyen (csillagokkal jelöltem) írd át az oszlop betűjelét olyanra, ahol biztosan nincs egyik lapodon sem adat.

  Az egyes lapokról az Összegző lapra egymás alá másolja a tartalmukat, közöttük egy sorral, ahol az első, A oszlop annak a lapnak a nevét tartalmazza, ahonnan az adatok származnak. Üres sorok itt már nem lesznek.

  Sub Osszegzes()
Dim lap As Integer, ide As Long, usor As Long, sor As Long

Sheets("Összegző").Cells = ""
Sheets(1).Rows(1).Copy Sheets("Összegző").Range("A1")

For lap = 1 To 6
ide = Sheets("Összegző").Range("A" & Rows.Count).End(xlUp).Row + 1
usor = Sheets(lap).Range("A" & Rows.Count).End(xlUp).Row
Sheets(lap).Rows("2:" & usor).Copy Sheets("Összegző").Range("A" & ide)
Sheets("Összegző").Cells(ide, "AA") = Sheets(lap).Name '***
Next

With Sheets("Összegző")
usor = .Range("A" & Rows.Count).End(xlUp).Row
For sor = usor To 2 Step -1
If Application.WorksheetFunction.CountA(.Rows(sor)) = 0 Then .Rows(sor & ":" & sor).Delete
If .Cells(sor, "AA") > "" Then '***
Rows(sor).Insert
.Cells(sor, 1) = Cells(sor + 1, "AA") '***
End If
Next
.Columns("AA").Delete
End With
End Sub

• #43781 Fferi50 Topikgazda commanDOS #43779

  Új Válasz 2020-04-30 12:09:43 #43781

  Ú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 commanDOS #43779 üzenetére

  Szia!
  Nézd meg ezt ill. a kapcsolódókat: #43769)
  Üdv.

• #29683 batmanéhes tag commanDOS #29678

  Új Válasz 2015-11-30 20:56:22 #29683

  Ú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

  

  batmanéhes

  tag

  válasz commanDOS #29678 üzenetére

  =if(or(left(A1;5)="+3620";left(A1;5)="+3630";left(A1;5)="+3670");"mobil";if(left(A1;4)="+361";"bp";"vidék"))

  legalábbis vmi ilyesmi.

• #17028 Mutt senior tag commanDOS #17026

  Új Válasz 2013-03-02 13:40:57 #17028

  Ú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 commanDOS #17026 üzenetére

  Hello,

  ...100 és 2000 között bármilyen szám kerülhet, amit meg kell feleltetnem a krititériumnak megfelelő 5 szám (500,750,1000,1500,2000) valamelyikével.

  Az FKERES (VLOOKUP) fog itt segíteni, csak itt fontos hogy a függvény 4-ek paramétere (IGAZ legyen, vagy üres). Ilyenkor a legközelebbi találatot adja az Excel, ezért a keresési tartományt mindenképp rendezd sorba.

  

  üdv.

• #17027 Aladaar tag commanDOS #17026

  Új Válasz 2013-03-02 13:31:39 #17027

  Ú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

  

  Aladaar

  tag

  válasz commanDOS #17026 üzenetére

  paraméterezés kérdése, ha a zárójel bezár előtt 0 értéket írsz, akkor a pontos értékes keresi meg, ha 1 értéket akkor a legnagyobbat azok közül, ami még kisebb nála. Persze csak ha az F oszlop érték szerint sorbarendezett.

• #17024 Delila_1 veterán commanDOS #17023

  Új Válasz 2013-03-02 11:53:01 #17024

  Ú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 commanDOS #17023 üzenetére

  Felveszel egy segédtáblát, ami legyen pl. az $F$1:$G$3 tartományban, ezt bővítheted
  F1–F3: 300, 551, 781. G1–G3: 500, 750, 900.
  A számok az A, a mellettük megjelenő érték a B oszlopban van.
  B1 képlete: =FKERES(A5;$F$1:$G$3;2;1)

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