Buka

ExcelVBA2CalCBasic -- 2

Converting an existing VBA script to OpenOffice Calc Basic.

Script compares column a with column b - > result is tab of ident field and one tab with unident fields.

The work skill is to convert the attached excel file with included scripts and macro into a fully working OpenOfficeCalc file. Only difference could be - button to start the comparison script can be replaced with menu and sheet "Ausführen can be deleted".

Basically the script can be converted with existing online tools - but we need a fully working OO Document [login to view URL]

The existing and faultless running VBA script for excel is as follows:

Private Sub CB_Start_Click()

Dim x As Double

Dim y As Double

Dim z As Double

Dim a As Double

Dim b As Double

Dim c As Double

x = 2

z = 1

b = 1

Sheets(3).[login to view URL]

Sheets(4).[login to view URL]

y = 1

Do

For a = 3 To 4

Sheets(a).Cells(1, y).Value = Sheets(1).Cells(1, y + 1).Value

Next a

y = y + 1

Loop Until Sheets(1).Cells(1, y + 1).Value = ""

Do

y = 2

a = 0

Do

c = 1

If Sheets(1).Cells(x, 2).Value = Sheets(1).Cells(y, 1).Value Then

If Sheets(3).Cells(z, 1).Value <> "" Then z = z + 1

Do

Sheets(3).Cells(z, c).Value = Sheets(1).Cells(x, c + 1).Value

c = c + 1

Loop Until Sheets(1).Cells(x, c + 1).Value = ""

a = 1

End If

y = y + 1

Loop Until Sheets(1).Cells(x, 2).Value = Sheets(1).Cells(y - 1, 1).Value Or Sheets(1).Cells(y, 1) = ""

If a = 0 Then

If Sheets(4).Cells(b, 1).Value <> "" Then b = b + 1

Sheets(4).Cells(b, 1).Value = Sheets(1).Cells(x, 2).Value

c = 1

Do

Sheets(4).Cells(b, c).Value = Sheets(1).Cells(x, c + 1).Value

c = c + 1

Loop Until Sheets(1).Cells(x, c + 1).Value = ""

End If

x = x + 1

Loop Until Sheets(1).Cells(x, 2) = ""

MsgBox "Habe fertig" & vbCr & "Übereinstimmungen: " & z - 1 & vbCr & "Keine Übereinstimmung: " & b - 1 & vbCr & "Summe: " & z + b - 2, vbInformation, "Spaltenvergleich"

If b = 1 Or z = 1 Then

MsgBox "Bitte nachkontrollieren Programm noch nicht ganz ausgereift", vbExclamation, "Spaltenvergleich"

End If

End Sub

Keahlian: Excel, Perancangan Perangkat Lunak, Visual Basic, Visual Basic untuk Aplikasi

Lihat lebih lanjut: converting pdf word document maintaining layout, free dont need sign online video chat private, converting photo shop document html, converting document html, converting xml document html document, converting quark document word, converting word document excel, converting pdf document database, converting hardcopy document word, converting publisher document, converting website document, converting word document table, steps converting word document web page, converting document form, errors converting document fillable pdf form, converting document excel table, converting document web form, cb private message virtuemart, converting document web pages, document joomla private

Tentang Pemberi kerja:
( 5 ulasan ) Dornbirn, Austria

ID Proyek: #24584811

9 freelancer menawar dengan rata-rata €19 untuk pekerjaan ini

shahinrahimi

I have good knowledge in both VBA and OpenOffice (calc). I can convert these lines of codes. if you interested contact me. I have rich experience in VBA-Macro(Excel, Powerpoint, Access Word, Web scrapping, API, ....), Lebih banyak

€50 EUR dalam 1 hari
(54 Ulasan)
5.3
Ahmed818

Hello, ⭐⭐⭐⭐⭐ i am expert in this kind of jobs samples of my excel VBA jobs ⭐⭐⭐⭐⭐ https://www.freelancer.com/projects/excel/Create-Excel-Spreadsheet-Macro-that/ https://www.freelancer.com/projects/excel/Make-VBA-code-r Lebih banyak

€19 EUR dalam 1 hari
(93 Ulasan)
5.2
AStream1210

I am excel vba expert. check my review, please contact me. Now i am ready for you. I will start now and will finish it perfectly for a few hours. looking for your reply. thanks.

€19 EUR dalam 1 hari
(8 Ulasan)
3.5
renato0216

Hi! I am a Excel vba expert. I've already read your description and understood perfectly about your task. I had vast experience of Excel VBA(dashboard, pivot chart, automation), VB.net,... So i can provide high quali Lebih banyak

€15 EUR dalam 1 hari
(4 Ulasan)
2.7
sivashamdz

Well. I can convert OpenSource OpenOffice code from Microsoft excel. As you already have codings in vba it is not hard to convert. Thanks, Siva.

€29 EUR dalam 1 hari
(2 Ulasan)
1.7
srikanthdavuluri

Hi, I am very experienced developer in VBA macros and also OpenOffice Calc Basic and can complete your requirement in 1 day and delivery without any issues and also will give free warranty for 2 weeks post delivery.

€8 EUR dalam 1 hari
(1 Ulasan)
0.3
rv5442381

I will be your virtual Assistant for Data entry. I am an experienced data entry operator.I working in this field for about 1 year. I can do you my service list: data Lebih banyak

€10 EUR dalam 5 hari
(0 Ulasan)
0.0
latifoglu80

I am expert on typing, i am expert on excel, i am expert on projects and i am ready for any project right now. I will focus on your project and complete as soon as possible.

€10 EUR dalam 1 hari
(0 Ulasan)
0.0
mayurpokiya

Best service.

€8 EUR dalam 1 hari
(0 Ulasan)
0.0