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

• #44639 lappy őstag .Farkas. #44638

  Új Válasz 2020-08-18 12:51:50 #44639

  Ú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 .Farkas. #44638 üzenetére

  Szumha függvényt nézd meg

• #34883 Delila_1 veterán .Farkas. #34882

  Új Válasz 2017-04-13 06:28:57 #34883

  Ú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 .Farkas. #34882 üzenetére

  Szívesen.

• #34881 Delila_1 veterán .Farkas. #34877

  Új Válasz 2017-04-12 07:07:43 #34881

  Ú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 .Farkas. #34877 üzenetére

  Nem írtad, melyik oszlopban vannak ezek az adatok.
  Írtam egy makrót, ami az A oszlopban lévő adatoknál végzi el az általad leírt feladatot. Ha nem ott található adatokról van szó, a makróban minden helyen az "A"-t írd át ennek megfelelően.

  A makrót modulba másold be a Téma összefoglaló szerint. Ha 2003-nál magasabb verziójú az Exceled, a füzetet makróbarátként kell mentened.

  Sub Szazalek()
Dim sor As Long, usor As Long, ertek As Integer
Dim k As Integer, v As Integer

Application.ScreenUpdating = False
usor = Range("A" & Rows.Count).End(xlUp).Row

For sor = usor To 6 Step -1
If Left(Cells(sor, "A"), 1) = "<" Then
k = Application.WorksheetFunction.Search(">", Cells(sor, "A"), 2) + 1
v = Application.WorksheetFunction.Search("<", Cells(sor, "A"), 2) - 1
ertek = Mid(Cells(sor, "A"), k, v - k + 1)
Rows(sor + 1).EntireRow.Insert
Cells(sor + 1, "A") = "<Statisztikai ertek>" & Int(ertek * 9.2 / 100) & "</Statisztikai ertek>"
End If
Next
Application.ScreenUpdating = True
End Sub

• #34436 Delila_1 veterán .Farkas. #34435

  Új Válasz 2017-03-10 10:10:03 #34436

  Ú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 .Farkas. #34435 üzenetére

  Örülök neki, szívesen.

• #34434 Delila_1 veterán .Farkas. #34433

  Új Válasz 2017-03-10 08:30:53 #34434

  Ú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 .Farkas. #34433 üzenetére

  Function Kep(Kepneve As Range)
Dim FN

Const utvonal = "D:\Képek\Személyek\" '************************
ChDir utvonal 'Direktor váltás
FN = Dir(utvonal & Kepneve & ".jpg")
Application.EnableEvents = False
If FN = "" Then Kep = "Nincs kép" Else Kep = "Van"
Application.EnableEvents = True
End Function

  A csillagozott sorban a saját útvonaladat add meg. A végén legyen backflash, ahogy a makróban látod.
  A B1 cella képlete =Kep(A1), ezt másolhatod lefelé.

  Modulba másold a makrót!

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