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

• #16526 Delila_1 veterán peterszky #16525

  Új Válasz 2013-01-29 15:40:10 #16526

  Ú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 peterszky #16525 üzenetére

  Szívesen.

• #16524 Delila_1 veterán peterszky #16523

  Új Válasz 2013-01-29 15:37:11 #16524

  Ú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 peterszky #16523 üzenetére

  Sub oszlop()
  Dim o$, oszlop%
  o$ = InputBox("Melyik oszlopban akarod futtatni?", "Oszlop bekérése")
  oszlop% = Asc(UCase(o$)) - 64
  MsgBox oszlop%
  Cells(1, oszlop%)="alma"
  End Sub

  A nagy A betű ASC értéke 65, ezért kell a beadott betű ASC értékéből levonni 64-et. 65-64=1, első oszlop.

• #16522 Delila_1 veterán peterszky #16521

  Új Válasz 2013-01-29 15:17:37 #16522

  Ú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 peterszky #16521 üzenetére

  Kérdés, hogy mit akarsz kezdeni vele. Amit írtál, az a Q oszlop sor%-adik cellájában lévő szöveges érték első 3 karakterét alakítja nagybetűvé. Ha ezt akarod valahova beilleszteni, akkor meg kell adnod, hova tegye a makró.

  Pl. cells(sor%, "B")=ucase((left(cells(sor%, "Q"), 3))

  vagy:
  if ucase((left(cells(sor%, "Q"), 3))="ABC" then ...

  Szerk.: nem jól írtam, nem alakítja nagybetűvé a 3 karaktert, hanem a nagybetűs változatával kezd valamit. Összehasonlítja, kikeresi, beírja, stb., ahogy a további sorokban megadod.

• #16521 peterszky őstag peterszky #16503

  Új Válasz 2013-01-29 15:08:00 #16521

  Ú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

  

  peterszky

  őstag

  válasz peterszky #16503 üzenetére

  Egy kérdés:

  UCase(Left(Cells(sor%, "Q"), 3))

  Ezt a "beégetett" részletet szeretném egy paraméterként megadni, próbáltam stringként, számként (oszlopszám), de mindig type mismatch hibát kapok futtatáskor. Erre mi az elfogadott módszer?

• #16504 Delila_1 veterán peterszky #16503

  Új Válasz 2013-01-28 14:48:03 #16504

  Ú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 peterszky #16503 üzenetére

  Eszerint összejött a "címszavak" verzió.

• #16498 Delila_1 veterán peterszky #16497

  Új Válasz 2013-01-28 11:24:09 #16498

  Ú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 peterszky #16497 üzenetére

  Szívesen.

• #16496 Delila_1 veterán peterszky #16495

  Új Válasz 2013-01-28 11:07:15 #16496

  Ú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 peterszky #16495 üzenetére

  Ez a makró a Munka2 lap A oszlopába írja az adatokat.

  Sub mm()
  Dim sor%, usor%, WS As Worksheet
  Set WS = Sheets("Munka2")
  sor% = 3
  usor% = WS.Cells(Rows.Count, "A").End(xlUp).Row + 1
  Sheets("Munka1").Select
  Do While Cells(sor%, "A") <> ""
  If UCase(Left(Cells(sor%, "E"), 3)) = "E (" Then
  WS.Cells(usor%, "A") = "P: " & Cells(sor%, "C") & ", H: " & Cells(sor%, "D")
  usor% = usor% + 1
  End If
  sor% = sor% + 1
  Loop
  End Sub

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