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

• #35338 Delila_1 veterán Sanyi.mTs #35335

  Új Válasz 2017-05-29 10:10:44 #35338

  Ú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 Sanyi.mTs #35335 üzenetére

  A "más módszer":

  Vízszintesen látszólag egyesíthetjük a cellákat. Beírjuk a szöveget, majd kijelöljük a cellákat, amiknek a közepén szeretnénk látni a beírtat. Cellaformázás, vízszintes elrendezésnél A kijelölés közepére opciót választjuk.

• #35337 Delila_1 veterán Sanyi.mTs #35335

  Új Válasz 2017-05-29 09:56:31 #35337

  Ú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 Sanyi.mTs #35335 üzenetére

  Eleve rossz ötletnek tartom a cellaegyesítést. Azonos sorban lévő cellák egyesítése helyett más módszer is alkalmazható. Erre is vonatkozik a föccer által leírt F4-es ismétlés.

• #35336 föccer nagyúr Sanyi.mTs #35335

  Új Válasz 2017-05-29 09:48:02 #35336

  Ú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

  

  föccer

  nagyúr

  válasz Sanyi.mTs #35335 üzenetére

  F4'el tudsz muveletet ismetelni. Megcsinalod az elsot, majd kijelolod a kovetkezo kupacot, F4, kijeloles F4...

• #33881 Juditta_56 aktív tag Sanyi.mTs #33880

  Új Válasz 2017-01-25 15:06:13 #33881

  Ú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

  

  Juditta_56

  aktív tag

  válasz Sanyi.mTs #33880 üzenetére

  =DARABTELI(A1:E1;"sz")
  bocs, el is szúrtam, egyenlőségjel nem kell

• #32363 lappy őstag Sanyi.mTs #32362

  Új Válasz 2016-08-19 12:18:21 #32363

  Ú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 Sanyi.mTs #32362 üzenetére

  Option Explicit

Public Function LastRowWithData(ByRef sht As Excel.Worksheet, Optional colName As String = "A") As Long
LastRowWithData = sht.Range(colName & sht.Rows.Count).End(xlUp).Row
End Function

Sub SplitToColumns(ByRef sColNames As String, ByRef strSeparator As String, ByRef rngDest As Excel.Range)
Dim arrColNames As Variant, i As Long

arrColNames = Split(sColNames, strSeparator)
For i = LBound(arrColNames) To UBound(arrColNames)
rngDest.Offset(0, i).value = arrColNames(i)
Next i
End Sub

Sub PerformTheSplit()
Dim totalRows As Long, i As Long, sColNames As String

totalRows = LastRowWithData(Munka1, "K")
For i = 1 To totalRows
sColNames = Munka1.Range("K" & i).value
Call SplitToColumns(sColNames, ",", Munka2.Range("A" & i))
Next i
End Sub

• #32357 Delila_1 veterán Sanyi.mTs #32356

  Új Válasz 2016-08-19 10:17:04 #32357

  Ú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 Sanyi.mTs #32356 üzenetére

  Az L2 lap C2 cellájának a képlete

  =HA('L1'!C2="XC2";"BC2";HA('L1'!C2="XC3";"BC3";HA('L1'!C2="XC4";"BC4";"")))

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