Zdravím, mám soubor s několika listy a přepisuji makrem data z jednoho listu do druhého, ale při určité podmínce dojde k vynechání některých řádků. Nedaří se mi udělat to, aby v koncovém listu nebyly mezi daty prázdné řádky, poradí někdo jak na to?
Sub Start
Dim sVar, sVal, svall, Old as string
Dim iVar, iVal, iVall, iDelenec, iDelitel as Long
iVar = GetLastRow(1)
oSheet1 = thisComponent.Sheets(1)
oSheet2 = thisComponent.Sheets(2)
oSheet3 = thisComponent.Sheets(3)
iVal = iVar
For j = 1 To iVar
For i = 0 To 9
If InStr(oSheet2.getCellByPosition(8,j).String, "d") > 0 OR InStr(oSheet2.getCellByPosition(8,j).String, "o") > 0 or InStr(oSheet2.getCellByPosition(8,j).String, "a") > 0 Then
Select Case i
Case 0
oSheet3.getCellByPosition(i,j).Formula = "=$slouceni.C"&(j+1)
Case 1
oSheet3.getCellByPosition(i,j).Formula = "=$slouceni.D"&(j+1)
Case 2
oSheet3.getCellByPosition(i,j).Formula = "=$slouceni.P"&(j+1)
Case 3
oSheet3.getCellByPosition(i,j).Formula = "=$slouceni.G"&(j+1)
Case 4
oSheet3.getCellByPosition(i,j).Formula = "=$slouceni.K"&(j+1)
Case 5
oSheet3.getCellByPosition(i,j).Formula = "=$slouceni.L"&(j+1)
Case 6
oSheet3.getCellByPosition(i,j).Formula = "=$slouceni.M"&(j+1)
Case 7
oSheet3.getCellByPosition(i,j).Formula = "=$slouceni.F"&(j+1)
oSheet3.getCellByPosition(i,j).CellBackColor = RGB(238,238,238)
Case 8
oSheet3.getCellByPosition(i,j).Formula = "=$slouceni.N"&(j+1)
Case 9
oSheet1.getCellByPosition(23,j).Formula = "=IF($udaje_pro_druzstvo.I"&(j+1)&"="&Chr(34)&"d"&Chr(34)&";1;0)"
oSheet3.getCellByPosition(i,j).Formula = "=$udaje_pro_druzstvo.I"&(j+1)
End Select
Else
***** něco *****
EndIf
Next i
Next j
end Sub
díky
mějte se fajn