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

• #42693 sztanozs veterán sz_abika #42692

  Új Válasz 2020-01-08 15:31:32 #42693

  Ú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

  

  sztanozs

  veterán

  válasz sz_abika #42692 üzenetére

  Angolul MATCH, asszem magyarul hol.van

• #41088 Exportlaptop csendes tag sz_abika #41086

  Új Válasz 2019-05-17 14:58:11 #41088

  Ú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

  

  Exportlaptop

  csendes tag

  válasz sz_abika #41086 üzenetére

  Nagyon köszönöm!
  Bocsi nem ide akartam

• #41084 Delila_1 veterán sz_abika #41082

  Új Válasz 2019-05-17 12:44:42 #41084

  Ú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 sz_abika #41082 üzenetére

  Azonos füzetbe tettem a körte és alma nevű lapokat, amiknek a nevét a Munka1!A1 cellában választom ki, vagy írom be.
  Biztosan át tudod alakítani a makrót úgy, hogy a lapok nevét ne a saját füzetben, hanem a ladak.xls-ben keresse, és onnan másoljon.

  Sub Masolas()
Dim a, lapnev As String

lapnev = Sheets(1).Range("A1")
On Error Resume Next
Set a = Sheets(lapnev) '***
If Err.Number <> 0 Then
MsgBox "Nincs " & lapnev & " nevű lap", vbCritical
Else
Sheets(lapnev).Range("A1:C5").Copy Sheets(1).Range("A2") '*** (sor elején)
End If
On Error GoTo 0
End Sub

  ***-gal jelöltem, hol kell megadnod a másik füzet útvonalát, nevét.

• #40583 Fferi50 Topikgazda sz_abika #40581

  Új Válasz 2019-03-27 15:09:38 #40583

  Ú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 sz_abika #40581 üzenetére

  Szia!

  Sajnos a * joker karakter a keresésnél, így a három * is azt jelenti, hogy nem üres a cella, amit keresünk.
  Ezért helyette valami más jelzést kellene kitalálnod.
  Vagy ciklussal végigmenni az oszlopon addig, amíg nem találod meg a három *-ot cellaértékként és azt tekinteni a formázás végét jelző sornak.

  Üdv.

• #40579 Pakliman tag sz_abika #40578

  Új Válasz 2019-03-27 14:16:54 #40579

  Ú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

  

  Pakliman

  tag

  válasz sz_abika #40578 üzenetére

  Szia!

  Ha jól értem, hogy mit szeretnél (A D2 cellától a ***-aj jelzett sor előtti sorig szeretnéd feltételesen formázni?)...

  Dim jelSora

'Megnézi, hogy a "jel" hanyadik sorban van
jelSora = Application.Match("***", Range("D:D"), 0)
'Ha van egyáltalán "jel", akkor...
If Not IsError(jelSora) Then
With Range("D2:D" & jelSora - 1)
.FormatConditions.Add Type:=xlExpression, Formula1:="=P6<$A$2"
.FormatConditions(.FormatConditions.Count).SetFirstPriority
With .FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = RGB(230, 230, 230)
.TintAndShade = 0
End With
End With
End If

• #40410 Mutt senior tag sz_abika #40408

  Új Válasz 2019-03-12 20:06:03 #40410

  Ú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 sz_abika #40408 üzenetére

  Szia,

  Itt az én változatom a problémára:

  Dim wsSource As Worksheet
Dim i As Long
Const wsName = " 1234"

i = 0
Do
i = i + 1
On Error Resume Next
Set wsSource = Sheets(Trim("xxx" & Mid(wsName, i, 1)))
On Error GoTo 0
Loop While wsSource Is Nothing And i < Len(wsName)

If wsSource Is Nothing Then
Call MsgBox("A keresett munkalap nem található", vbOKOnly, "Információ")
Else
ActiveCell.Offset(-2, 0).Value = wsSource.Range("A1")
End If

  üdv

• #40409 Fferi50 Topikgazda sz_abika #40408

  Új Válasz 2019-03-12 17:19:20 #40409

  Ú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 sz_abika #40408 üzenetére

  Szia!

  Egy munkalapra vagy a pontos nevével vagy a munkafüzetben elfoglalt helyének a sorszámával hivatkozhatsz.
  Ha feltételesen keresed a munkalapot, akkor ciklusban kell végignézned azokat.
  Pl.
  Sub keresi()
Dim sh As Worksheet, shvan As Boolean
shvan = False
For Each sh In Worksheets
If Left(sh.Name, 3) = "xxx" Then
ActiveCell.Offset(-2, 0).Value = sh.Range("A1")
shvan = True
Exit For
End If
Next
If Not shvan Then MsgBox "Nincs ilyen munkalap"
End Sub

  Üdv.

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