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

• #548 lapa veterán Major Major #547

  Új Válasz 2005-09-06 17:26:01 #548

  Ú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

  

  lapa

  veterán

  válasz Major Major #547 üzenetére

  mint fentebb: munkalap2 első üres oszlopába: =hol.van(A1;munka1!A:A;0)
  
  ha a képletet lehúzod az uccsó rekordig, akkor minden olyan sorhoz, ami a munka1 A oszlopában szerepel egy számot fog írni. az összes többihez #hiányzik hibaértéket ad. a képletes oszlopban irányított beillesztéssel kicseréled a képleteket szövegre, majd a munka2-ből az egész hóbalabancot átkopizod munka3-ba. itt sorrendezel a korábbi képletes oszlpo szerint és kitörlöd az összes #hiányzik sort.

• #520 lapa veterán Major Major #519

  Új Válasz 2005-08-16 17:31:36 #520

  Ú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

  

  lapa

  veterán

  válasz Major Major #519 üzenetére

  ööö, talán a makró biztonsági szint? más ötletem nincs, egyszer már működött, ha nem írkáltad át akkor most is mennie kéne. esetleg próbáld meg újra kimásolni a hsz-emből. ctrl+h a csere a macskakörömhöz.

• #518 lapa veterán Major Major #517

  Új Válasz 2005-08-16 16:16:13 #518

  Ú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

  

  lapa

  veterán

  válasz Major Major #517 üzenetére

  de. csak írd át az egyenlőségjelet egyenlőségjelre. gondolom a képlet hamarabb került az új munkafüzetbe, mint a makró...

• #515 lapa veterán Major Major #514

  Új Válasz 2005-08-16 14:56:49 #515

  Ú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

  

  lapa

  veterán

  válasz Major Major #514 üzenetére

  két aposztróf = macskaköröm mindenhol.

• #513 lapa veterán Major Major #512

  Új Válasz 2005-08-16 14:13:32 #513

  Ú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

  

  lapa

  veterán

  válasz Major Major #512 üzenetére

  na kiindulásnak ennyi szerintem jó lesz. ezt bepástolod egy új modulba és utána mondjuk a telefonszám (A1) melletti cellába (pl. B1) beírod:
  
  =telszam(a1)
  
  ez egyelőre csak a kezdő 0-t vágja le és csak a 8jegyű pöstieket formázza.
  
  

  
  Function telszam(origszam As String) As String
  
  'kezdő 0 levágása
  If Left(origszam, 1) = 0 Then
  origszam = Mid(origszam, 2, 99)
  End If
  
  '8 jegyű és 1 v. 2 kezdő szám
  If Len(origszam) = 8 And (Left(origszam, 1) = ''1'' Or Left(origszam, 1) = ''2'') Then
  telszam = Left(origszam, 1) & ''/'' & Mid(origszam, 2, 3) & ''-'' & Mid(origszam, 5, 2) & ''-'' & Mid(origszam, 7, 3)
  
  Else
  
  telszam = origszam
  
  End If
  
  End Function
  

• #507 lapa veterán Major Major #506

  Új Válasz 2005-08-16 11:10:50 #507

  Ú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

  

  lapa

  veterán

  válasz Major Major #506 üzenetére

  1. cella kijelöl --> 2. másolás (ctrl+c) --> 3. cellán jobb gomb --> 4. irányított beillesztés --> 5. értékek.
  
  ha makrórögzítővel felveszed a 2. lépéstől elméletileg bármilyen kijelölt területre alkalmazható utána.
  
  mod: egyébként:

  
  Sub huha()
      Selection.Copy
      Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
          :=False, Transpose:=False
  End Sub
  

  
  
  [Szerkesztve]

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