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

• #25669 Delila_1 veterán mikroli #25668

  Új Válasz 2015-02-28 18:21:48 #25669

  Ú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 mikroli #25668 üzenetére

  Nézd meg a 25667-es hsz-t is!

• #25667 poffsoft veterán mikroli #25665

  Új Válasz 2015-02-28 18:06:21 #25667

  Ú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

  

  poffsoft

  veterán

  válasz mikroli #25665 üzenetére

  ha meg ragaszkodsz a + és - jelöléshez, akkor cellaformátumnak pl. ezt add meg:
  Egyéni
  +# ##0\ _F_t;-# ##0\ _F_t

• #25666 Delila_1 veterán mikroli #25665

  Új Válasz 2015-02-28 17:50:31 #25666

  Ú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 mikroli #25665 üzenetére

  A

  Range("D" & Application.CountA(Columns(4)) + 1) ="'+" & Cells(sor, 1)

  sorból hagyd ki a "'+" & -et, a

  Range("D" & Application.CountA(Columns(4)) + 1) = "'-" & Cells(sor, 2)

  helyett pedig legyen

  Range("D" & Application.CountA(Columns(4)) + 1) = Cells(sor, 2)*-1

• #25664 Delila_1 veterán mikroli #25663

  Új Válasz 2015-02-28 17:23:20 #25664

  Ú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 mikroli #25663 üzenetére

  Semmi akadálya.

  Sub Paratlanok()
  Dim sor As Long
  
  sor = 2
  Do While Cells(sor, 1) > ""
  If Application.CountIf(Range("A:B"), Cells(sor, "A")) = 1 Then _
  Range("D" & Application.CountA(Columns(4)) + 1) = "'+" & Cells(sor, 1)
  sor = sor + 1
  Loop
  
  sor = 2
  Do While Cells(sor, 2) > ""
  If Application.CountIf(Range("A:B"), Cells(sor, "B")) = 1 Then _
  Range("D" & Application.CountA(Columns(4)) + 1) = "'-" & Cells(sor, 2)
  sor = sor + 1
  Loop
  End Sub

• #25661 Delila_1 veterán mikroli #25659

  Új Válasz 2015-02-28 16:57:10 #25661

  Ú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 mikroli #25659 üzenetére

  Arra az esetre

  Sub Paratlanok()
  Dim sor As Long
  
  sor = 2
  Do While Cells(sor, 1) > ""
  If Application.CountIf(Range("A:B"), Cells(sor, "A")) = 1 Then _
  Range("D" & Application.CountA(Columns(4)) + 1) = Cells(sor, 1)
  sor = sor + 1
  Loop
  
  sor = 2
  Do While Cells(sor, 2) > ""
  If Application.CountIf(Range("A:B"), Cells(sor, "B")) = 1 Then _
  Range("D" & Application.CountA(Columns(4)) + 1) = Cells(sor, 2)
  sor = sor + 1
  Loop
  End Sub

• #25658 Delila_1 veterán mikroli #25657

  Új Válasz 2015-02-28 16:45:25 #25658

  Ú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 mikroli #25657 üzenetére

  Makró arra az esetre, mikor az A és B oszlopban azonos mennyiségű szám van, és az adatok a 2. sorban kezdődnek (címsor az első).

  Sub Paratlanok()
  Dim sor As Long
  
  sor = 2
  Do While Cells(sor, 1) > ""
  If Application.CountIf(Range("A:B"), Cells(sor, "A")) = 1 Then _
  Range("D" & Application.CountA(Columns(4)) + 1) = Cells(sor, 1)
  If Application.CountIf(Range("A:B"), Cells(sor, "B")) = 1 Then _
  Range("D" & Application.CountA(Columns(4)) + 1) = Cells(sor, 2)
  sor = sor + 1
  Loop
  End Sub

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