Problema in Excel

Option Explicit
Dim SFI As String 'numele SFI-ului
Dim Left_SFI As String 'primele 8 caractere din stanga SFI-ului
Dim End_SFI As Integer 'numarul din coada SFI-ului
Dim iteratie As Integer 'iteratia curenta
Dim iteratie_maxima As Integer 'numarul maxim de iteratii minus 10
Dim rand As String 'numarul randului la care s-a gasit markerul X
Dim nr_insertii As Integer 'numarul documente suplimentare pentru fiecare SFI in parte si este egal cu lungimea markerului din coloana 1
Dim insertia_curenta As Integer 'iteratia curenta din numarul maxim de insertii
Dim insertia_curenta1 As String 'caracterul selectat la momentul insertiei curente din markerul insertia curenta2
Dim insertia_curenta2 As String 'markerii selectati pentru insertie
Dim title1 As String 'textul din coloana Title1 + informatia aditionala in functie de marker
Private Sub cmdCreate_Click()
iteratie_maxima = 10

Do Until Worksheets("Foaie1").Cells(iteratie_maxima, 2).Text = ""
  iteratie_maxima = iteratie_maxima + 1
  Loop
lblMAX.Caption = "Maximum numbers of items are: " & iteratie_maxima - 10
For iteratie = 10 To iteratie_maxima
	End_SFI = 101
	nr_insertii = Len(Worksheets("Foaie1").Cells(iteratie, 1).Text)
	If nr_insertii = 0 Then
		GoTo aici
	End If
	insertia_curenta2 = Worksheets("Foaie1").Cells(iteratie, 1).Text
	SFI = Worksheets("Foaie1").Cells(iteratie, 2).Text
	Left_SFI = Left(SFI, 8)
	rand = iteratie + 1 & ":" & iteratie + 1
	   
	For insertia_curenta = 1 To nr_insertii
		insertia_curenta1 = Mid(insertia_curenta2, insertia_curenta, 1)
		Rows(rand).Select
		Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
		Worksheets("Foaie1").Cells(iteratie + 1, 2).Value = Left_SFI & Str(End_SFI)
		Worksheets("Foaie1").Cells(iteratie + 1, 2).Select
			With Selection.Interior
				.Pattern = xlSolid
				.PatternColorIndex = xlAutomatic
				.ThemeColor = xlThemeColorAccent3
				.TintAndShade = 0.599993896298105
				 .PatternTintAndShade = 0
			 End With
			 If insertia_curenta1 = "1" Then
				title1 = "Dimension + Service space " & Worksheets("Foaie1").Cells(iteratie, 3).Text
			 End If
			 If insertia_curenta1 = "2" Then
				title1 = "Footprint + Weight " & Worksheets("Foaie1").Cells(iteratie, 3).Text
			 End If
			 If insertia_curenta1 = "3" Then
				title1 = "P&ID Manual " & Worksheets("Foaie1").Cells(iteratie, 3).Text
			 End If
			 If insertia_curenta1 = "4" Then
				title1 = "Technical specification  " & Worksheets("Foaie1").Cells(iteratie, 3).Text
			 End If
			 If insertia_curenta1 = "5" Then
				title1 = "Cooling manual + schematic " & Worksheets("Foaie1").Cells(iteratie, 3).Text
			 End If
			 If insertia_curenta1 = "6" Then
				title1 = "Lub. oil manual + schematic " & Worksheets("Foaie1").Cells(iteratie, 3).Text
			 End If
			 If insertia_curenta1 = "7" Then
				title1 = "Fuel oil manual + schematic " & Worksheets("Foaie1").Cells(iteratie, 3).Text
			 End If
			 If insertia_curenta1 = "8" Then
				title1 = "Exhaust manual + schematic " & Worksheets("Foaie1").Cells(iteratie, 3).Text
			 End If
			 If insertia_curenta1 = "9" Then
				title1 = "Dimension + Service space " & Worksheets("Foaie1").Cells(iteratie, 3).Text
			 End If
			 If insertia_curenta1 = "A" Then
				title1 = "Electric manual + schematic " & Worksheets("Foaie1").Cells(iteratie, 3).Text
			 End If
			 If insertia_curenta1 = "B" Then
				title1 = "Hydr. manual + schematic " & Worksheets("Foaie1").Cells(iteratie, 3).Text
			 End If
			 If insertia_curenta1 = "C" Then
				title1 = "HVAC manual + schematic " & Worksheets("Foaie1").Cells(iteratie, 3).Text
			 End If
						 
		 Worksheets("Foaie1").Cells(iteratie + 1, 3).Value = title1
		 Worksheets("Foaie1").Cells(iteratie + 1, 3).Select
			With Selection.Interior
				.Pattern = xlSolid
				.PatternColorIndex = xlAutomatic
				.ThemeColor = xlThemeColorAccent3
				.TintAndShade = 0.599993896298105
				 .PatternTintAndShade = 0
			 End With
		 insertia_curenta1 = ""
							   
		End_SFI = End_SFI + 1
	Next
	iteratie = iteratie + nr_insertii
	iteratie_maxima = iteratie_maxima + nr_insertii
	lblMAX.Caption = "Maximum numbers of items are: " & iteratie_maxima - 10
aici:
Next iteratie
End Sub

For iteratie = 10 To iteratie_maxima

For iteratie = 10 To 5000

Edited by tehnics, 08 December 2013 - 10:17.

tehnics, on 08 decembrie 2013 - 10:17, said:

For iteratie = 10 To iteratie_maxima

For iteratie = 10 To 5000

For iteratie = 10 To iteratie_maxima + 1