Friss topikok

  • deak noemi: Kedves blogíró, A Marosvásárhelyi Sapientia Erdélyi Magyar Tudományegyetem hallgatói vagyunk,... (2010.04.28. 16:08) vége
  • Lőcsei: Jee! Máris nagyon kedvetkaptam , hogy kimenjek!!! A Via ferrata szó és az a kép egyszerűen lázba... (2008.07.22. 14:18) Hegyek, jazz
  • Lőcsei: Szia Bálint! Eröltesd meg magad mert az Évi blogja kezd érdekesebb lenni! :) Kiállítások , jazz-... (2008.07.18. 13:49) Éva megérkezett
  • ToBoZ: Mit válogatunk? (2008.07.10. 18:01) Dizájnkatasztrófa a homokozóból
  • Andris: sok dologban egyetértek, a sajtjaik nagy része zsíros, azonban jobb helyeken lehet kapni kevésbé z... (2008.07.07. 06:58) Nemzetek konyhája

2008.08.29. 10:11 ToBoZ

Visual Basic

Probalom az adatrogzitest egyszerusiteni, hogy ne kelljen kezzel masolgatni az adatokat egyik munkalaprol a masikra. Miert mondja azt, hogy "Boucle sans Do" (loop without do), mikor ott a do? Herman segits. Es ne azzal, hogy szidod a microsoft.

Sub collage()

Dim y, row, x As Integer

y = 17
x = 2
row = 6
Do
If Worksheets("résultats").Cells(1, y + 1) = Worksheets("résultats").Cells(1, y) Then
Worksheets("résultats").Cells(1, y) = Worksheets("niv1").Cells(x, row)
x = x + 1
y = y + 1
Else
row = row + 1
Loop Until Worksheets("résultats").Cells(1, y) = 0


End Sub

Szólj hozzá!


A bejegyzés trackback címe:

https://nizza.blog.hu/api/trackback/id/tr64639018

Kommentek:

A hozzászólások a vonatkozó jogszabályok  értelmében felhasználói tartalomnak minősülnek, értük a szolgáltatás technikai  üzemeltetője semmilyen felelősséget nem vállal, azokat nem ellenőrzi. Kifogás esetén forduljon a blog szerkesztőjéhez. Részletek a  Felhasználási feltételekben és az adatvédelmi tájékoztatóban.

Nincsenek hozzászólások.
süti beállítások módosítása