, !
MAIN
TECHNOLOGIES
TECHNOLOGIES of halva
TECHNOLOGY dried fruit and vegetables
Condiments and seasonings
THE EQUIPMENT
ADVICES OF DESIGNER
SUGARING
THE RECIPES
contactS
ASSEMBLY
INVESTIGATION
patentS
HistorY OF MECHANICS
PROJECTS
TECHNICAL infoRMATION
EQUIPMENT PURCHASE
BUSINESS PROJECTS
HOW TO MAKE YOUR WEBSITE
Rare-OLD CARS
IDEAS
THINKING
PROBLEMS AND DEFICIENCIES IN EQUIPMENT
QUESTIONS, ANSWER, DISCUSSION
LEISURE
ART GALLERY
price
CALCULATION
, ()!




WRITE LETTER

SAPE

1 2


1 new, old, analiz export... Sub 1() ' ' 1 ' 01.03.2013 (UserXP) ' ' : Ctrl+x ' Workbooks.Open Filename:= _ "D:\SAPA\new.xls" Workbooks.Open Filename:= _ "D:\SAPA\old.xls" Workbooks.Open Filename:= _ "D:\SAPA\analiz.xls" End Sub --------------------------------------------- 2 new, old, analiz Sub 2() ' ' 2 ' 01.03.2013 (UserXP) ' ' : Ctrl+s ' Dim lim As Integer Dim n As Integer Dim m As Integer Dim k As Integer Dim i As Integer Dim i2 As Integer Dim i3 As Integer Dim nn As Integer Dim mm As Integer Dim f As Integer Dim f1 As Integer Dim f2 As Integer Dim f3 As Integer Dim nn1 As Integer Dim nn2 As Integer Dim nn3 As Integer Dim mm1 As Integer Dim mm2 As Integer Dim mm3 As Integer Dim k1 As Integer Dim anew2 As String Dim anew3 As String Dim aold2 As String Dim aold3 As String Dim aa As String Dim aa1 As String Dim aa2 As String Dim aa3 As String Dim bb As String Dim bbb As String Dim dd As String Dim pp As String Dim new1 As String Dim new2 As String Dim new3 As String Dim new4 As String Dim new11 As String Dim new12 As String Dim new13 As String Dim new14 As String Dim ss As String Dim ss1 As String '---------------------------------------------------------------------------------- lim = 1000 '---------------------------------------------------------------------------------- For i2 = 1 To lim ' ANALIZ.XLS Application.Workbooks("analiz.xls").Sheets("1").Cells(i2, 1).ClearContents Application.Workbooks("analiz.xls").Sheets("1").Cells(i2, 2).ClearContents Application.Workbooks("analiz.xls").Sheets("1").Cells(i2, 3).ClearContents Application.Workbooks("analiz.xls").Sheets("1").Cells(i2, 4).ClearContents Application.Workbooks("analiz.xls").Sheets("1").Cells(i2, 5).ClearContents Application.Workbooks("analiz.xls").Sheets("1").Cells(i2, 6).ClearContents Application.Workbooks("analiz.xls").Sheets("1").Cells(i2, 7).ClearContents Application.Workbooks("analiz.xls").Sheets("1").Cells(i2, 8).ClearContents Application.Workbooks("analiz.xls").Sheets("1").Cells(i2, 9).ClearContents Application.Workbooks("analiz.xls").Sheets("1").Cells(i2, 10).ClearContents Application.Workbooks("analiz.xls").Sheets("1").Cells(i2, 11).ClearContents Application.Workbooks("analiz.xls").Sheets("1").Cells(i2, 12).ClearContents ' OLD Application.Workbooks("old.xls").Sheets("1").Cells(i2, 1).ClearContents Application.Workbooks("old.xls").Sheets("1").Cells(i2, 2).ClearContents Application.Workbooks("old.xls").Sheets("1").Cells(i2, 3).ClearContents Application.Workbooks("old.xls").Sheets("1").Cells(i2, 4).ClearContents Application.Workbooks("old.xls").Sheets("1").Cells(i2, 11).ClearContents Application.Workbooks("old.xls").Sheets("1").Cells(i2, 12).ClearContents Application.Workbooks("old.xls").Sheets("1").Cells(i2, 13).ClearContents Application.Workbooks("old.xls").Sheets("1").Cells(i2, 14).ClearContents Next i2 '----------------------------------------------------------------------------- aa = "OK" aa3 = "ERROR" aa1 = "minihalva" aa2 = "xtexspravk" m = 1 k = 1 '------------------------------------------------------------------------- ' NEW OLD For i = 1 To lim new1 = Application.Workbooks("new.xls").Sheets("1").Cells(i, 1).Value new2 = Application.Workbooks("new.xls").Sheets("1").Cells(i, 2).Value new3 = Application.Workbooks("new.xls").Sheets("1").Cells(i, 3).Value new4 = Application.Workbooks("new.xls").Sheets("1").Cells(i, 4).Value new11 = Application.Workbooks("new.xls").Sheets("1").Cells(i, 11).Value new12 = Application.Workbooks("new.xls").Sheets("1").Cells(i, 12).Value new13 = Application.Workbooks("new.xls").Sheets("1").Cells(i, 13).Value new14 = Application.Workbooks("new.xls").Sheets("1").Cells(i, 14).Value Application.Workbooks("old.xls").Sheets("1").Cells(i, 1) = new1 Application.Workbooks("old.xls").Sheets("1").Cells(i, 2) = new2 Application.Workbooks("old.xls").Sheets("1").Cells(i, 3) = new3 Application.Workbooks("old.xls").Sheets("1").Cells(i, 4) = new4 Application.Workbooks("old.xls").Sheets("1").Cells(i, 11) = new11 Application.Workbooks("old.xls").Sheets("1").Cells(i, 12) = new12 Application.Workbooks("old.xls").Sheets("1").Cells(i, 13) = new13 Application.Workbooks("old.xls").Sheets("1").Cells(i, 14) = new14 Next i '----------------------------------------------------------------------- For i3 = 1 To lim ' NEW Application.Workbooks("new.xls").Sheets("1").Cells(i3, 1).ClearContents Application.Workbooks("new.xls").Sheets("1").Cells(i3, 2).ClearContents Application.Workbooks("new.xls").Sheets("1").Cells(i3, 3).ClearContents Application.Workbooks("new.xls").Sheets("1").Cells(i3, 4).ClearContents Application.Workbooks("new.xls").Sheets("1").Cells(i3, 11).ClearContents Application.Workbooks("new.xls").Sheets("1").Cells(i3, 12).ClearContents Application.Workbooks("new.xls").Sheets("1").Cells(i3, 13).ClearContents Application.Workbooks("new.xls").Sheets("1").Cells(i3, 14).ClearContents Next i3 '--------------------------------------------------------------------- ' NEW For n = 1 To lim bb = Cells(n, 5).Value ' dd = Cells(n, 10).Value 'html pp = Cells(n, 1).Value 'URL bbb = Mid(pp, 12, 9) If bb = aa Or bb = aa3 Then If bbb = aa1 Then ' minihalva Application.Workbooks("new.xls").Sheets("1").Cells(m, 1) = bb ' Application.Workbooks("new.xls").Sheets("1").Cells(m, 2) = pp 'URL Application.Workbooks("new.xls").Sheets("1").Cells(m, 3) = dd 'html Application.Workbooks("new.xls").Sheets("1").Cells(m, 4) = bbb ' URL m = m + 1 End If If bbb = aa2 Then ' xtexspravk Application.Workbooks("new.xls").Sheets("1").Cells(k, 11) = bb ' Application.Workbooks("new.xls").Sheets("1").Cells(k, 12) = pp 'URL Application.Workbooks("new.xls").Sheets("1").Cells(k, 13) = dd 'html Application.Workbooks("new.xls").Sheets("1").Cells(k, 14) = bbb ' URL k = k + 1 End If Else End If Next n '------------------------------------------------------------------------- ' For k1 = 1 To lim Application.Workbooks("analiz.xls").Sheets("1").Cells(1, 13).Copy Application.Workbooks("analiz.xls").Sheets("1").Cells(k1, 3) Application.Workbooks("analiz.xls").Sheets("1").Cells(1, 13).Copy Application.Workbooks("analiz.xls").Sheets("1").Cells(k1, 6) Application.Workbooks("analiz.xls").Sheets("1").Cells(2, 13).Copy Application.Workbooks("analiz.xls").Sheets("1").Cells(k1, 9) Application.Workbooks("analiz.xls").Sheets("1").Cells(2, 13).Copy Application.Workbooks("analiz.xls").Sheets("1").Cells(k1, 12) Next k1 '------------------------------------------------------------------------------- ' NEW OLD MINIHALVA f = 2 For nn = 1 To lim anew2 = Application.Workbooks("new.xls").Sheets("1").Cells(nn, 2).Value 'url anew3 = Application.Workbooks("new.xls").Sheets("1").Cells(nn, 3).Value 'html For mm = 1 To lim aold2 = Application.Workbooks("old.xls").Sheets("1").Cells(mm, 2).Value 'url aold3 = Application.Workbooks("old.xls").Sheets("1").Cells(mm, 3).Value 'html If aold3 = anew3 Then GoTo blia Else End If Next mm ' MINIHALVA Application.Workbooks("analiz.xls").Sheets("1").Cells(f, 1) = anew2 'URL Application.Workbooks("analiz.xls").Sheets("1").Cells(f, 2) = anew3 'html ss = "D:\minihalva\xagr4.html" Application.Workbooks("analiz.xls").Sheets("1").Cells(f, 3).Hyperlinks(1).Address = ss f = f + 1 blia: Next nn '--------------------------------------- f1 = 2 For nn1 = 1 To lim aold2 = Application.Workbooks("old.xls").Sheets("1").Cells(nn1, 2).Value aold3 = Application.Workbooks("old.xls").Sheets("1").Cells(nn1, 3).Value For mm1 = 1 To lim anew2 = Application.Workbooks("new.xls").Sheets("1").Cells(mm1, 2).Value anew3 = Application.Workbooks("new.xls").Sheets("1").Cells(mm1, 3).Value If anew3 = aold3 Then GoTo blia1 Else End If Next mm1 ' MINIHALVA Application.Workbooks("analiz.xls").Sheets("1").Cells(f1, 4) = aold2 'URL Application.Workbooks("analiz.xls").Sheets("1").Cells(f1, 5) = aold3 'html ss1 = "D:\minihalva\xagr3.html" Application.Workbooks("analiz.xls").Sheets("1").Cells(f1, 6).Hyperlinks(1).Address = ss1 f1 = f1 + 1 blia1: Next nn1 '--------------------------------------------------------------------------------- '--------------------------------------------------------------------------------- f2 = 2 For nn2 = 1 To lim anew2 = Application.Workbooks("new.xls").Sheets("1").Cells(nn2, 12).Value 'url anew3 = Application.Workbooks("new.xls").Sheets("1").Cells(nn2, 13).Value 'html For mm2 = 1 To lim aold2 = Application.Workbooks("old.xls").Sheets("1").Cells(mm2, 12).Value 'url aold3 = Application.Workbooks("old.xls").Sheets("1").Cells(mm2, 13).Value 'html If aold3 = anew3 Then GoTo blia2 Else End If Next mm2 ' xtexSPRAVKA Application.Workbooks("analiz.xls").Sheets("1").Cells(f2, 7) = anew2 'URL Application.Workbooks("analiz.xls").Sheets("1").Cells(f2, 8) = anew3 'html 'Application.Workbooks("analiz.xls").Sheets("1").Cells(f2, 9).Paste ' f2 = f2 + 1 blia2: Next nn2 '--------------------------------------- f3 = 2 For nn3 = 1 To lim aold2 = Application.Workbooks("old.xls").Sheets("1").Cells(nn3, 12).Value aold3 = Application.Workbooks("old.xls").Sheets("1").Cells(nn3, 13).Value For mm3 = 1 To lim anew2 = Application.Workbooks("new.xls").Sheets("1").Cells(mm3, 12).Value anew3 = Application.Workbooks("new.xls").Sheets("1").Cells(mm3, 13).Value If anew3 = aold3 Then GoTo blia3 Else End If Next mm3 ' xtexSPRAVKA Application.Workbooks("analiz.xls").Sheets("1").Cells(f3, 10) = aold2 'URL Application.Workbooks("analiz.xls").Sheets("1").Cells(f3, 11) = aold3 'html 'Application.Workbooks("analiz.xls").Sheets("1").Cells(f3, 12).Paste ' f3 = f3 + 1 blia3: Next nn3 '--------------------------------------------------------------------------------- ' Application.Workbooks("analiz.xls").Sheets("1").Cells(1, 1) = "" Application.Workbooks("analiz.xls").Sheets("1").Cells(1, 2) = "MINIHALVA" Application.Workbooks("analiz.xls").Sheets("1").Cells(1, 1).Interior.Colorxindex = 4 Application.Workbooks("analiz.xls").Sheets("1").Cells(1, 2).Interior.Colorxindex = 4 Application.Workbooks("analiz.xls").Sheets("1").Cells(1, 4) = "" Application.Workbooks("analiz.xls").Sheets("1").Cells(1, 5) = "MINIHALVA" Application.Workbooks("analiz.xls").Sheets("1").Cells(1, 4).Interior.Colorxindex = 3 Application.Workbooks("analiz.xls").Sheets("1").Cells(1, 5).Interior.Colorxindex = 3 Application.Workbooks("analiz.xls").Sheets("1").Cells(1, 7) = "" Application.Workbooks("analiz.xls").Sheets("1").Cells(1, 8) = "xtexSPRAVKA" Application.Workbooks("analiz.xls").Sheets("1").Cells(1, 7).Interior.Colorxindex = 4 Application.Workbooks("analiz.xls").Sheets("1").Cells(1, 8).Interior.Colorxindex = 4 Application.Workbooks("analiz.xls").Sheets("1").Cells(1, 10) = "" Application.Workbooks("analiz.xls").Sheets("1").Cells(1, 11) = "xtexSPRAVKA" Application.Workbooks("analiz.xls").Sheets("1").Cells(1, 10).Interior.Colorxindex = 3 Application.Workbooks("analiz.xls").Sheets("1").Cells(1, 11).Interior.Colorxindex = 3 End Sub 3      - .