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

• #12017 Delila_1 Topikgazda torment #12014

  Új Válasz 2011-11-14 11:10:29 #12017

  Ú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

  Topikgazda

  válasz torment #12014 üzenetére

  Nem offset-tel oldottam meg, hanem a több elágazású select case-zel.

  A Select Case sorban meg kell adni a figyelendő változót, a Case1, Case2, ....Case7 sorokban pedig azt, hogy melyik érték esetén mit csináljon a program.

  Sub Másol()
  Dim sor%, oszlop%
  Sheets("Lemez_Spc").Select
  sor% = Range("Y21"): oszlop% = Range("Y6")
  
  Select Case sor%
  Case 1
  sor% = 3
  Case 2
  sor% = 11
  Case 3
  sor% = 19
  End Select
  
  Select Case oszlop%
  Case 1
  oszlop% = 2
  Case 2
  oszlop% = 7
  Case 3
  oszlop% = 12
  Case 4
  oszlop% = 17
  Case 5
  oszlop% = 22
  Case 6
  oszlop% = 27
  Case 7
  oszlop% = 32
  End Select
  
  Range("B35:F42").Copy Sheets("Heti_adatbázis").Cells(sor%, oszlop%)
  End Sub

  Szerk:
  A #12012-es hozzászólásban úgy látszik, mintha 2 sorban lenne megadva a honnan - hova másol, pedig 1 sorba kell írni, közötte szóközzel. Programkódként kellett volna megadnom.

  [ Szerkesztve ]

  Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

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