MACRO ? EXCEL-LİBRE

MACRO ? EXCEL-LİBRE

#1033 İleti | diver.kesan | 15 Kas 2013, 12:43

Merhaba, 2010 yılında bir dost marifeti ile aşağıya verceğim macroları tablolarıma kaydetmiş ve kullanmış idim. Bilahare open office, ardından da asla vazgeçmeyi düşünmediğim libreoffice uygulamalarına geçince kullanamamıştım. Arşivimi karıştırırken gördüğüm dosya eski uygulamalarımı kullanma arzusu doğurdu. Lakin nasıl düzenleyeceğimi, nereye kaydetmem gerektiğini bilemediğimden sizlerden yardım bekliyorum. Sevgiler


Rem Attribute VBA_ModuleType=VBAModule
Option VBASupport 1
Function BK(a As Integer)
If a = 3 Then BK = "YTY"
If a = -1 Then BK = "ÜBD"
If a = 1 Then BK = "ÜBY"
If a = -2 Then BK = "ABD"
If a = 2 Then BK = "ABY"
If a = 0 Then BK = "ÖSG"
End Function
diver.kesan
 
İleti: 10
Kayıt: 05 Arl 2012, 14:00
İşletim Sisteminiz: windows
LibreOffice Sürümü: 3.6.3.2

Re: MACRO ? EXCEL-LİBRE

#1034 İleti | diver.kesan | 15 Kas 2013, 12:45

Ve daha zor bir yedek olayı (hiç ama hiç bir şey anlamıyorum)

Rem Attribute VBA_ModuleType=VBAModule
Option VBASupport 1
Private Sub CommandButton1_Click()
If ListBox3 = "" Then MsgBox "Hisse seçilmedi!", vbExclamation, "İşlem Yapılamadı!": Exit Sub
Dim a, i As Integer
Dim kitap As String
DoEvents
Label4.Caption = "Kayıtlar aktarılıyor... Lütfen bekleyin..."
On Error GoTo hata
Workbooks.Open (ThisWorkbook.Path & Application.PathSeparator & ListBox3)
kitap = ListBox3
a = ListBox2.ListCount
For i = 1 To a
b = Workbooks(kitap).Worksheets("Sayfa1").Range("A65000").End(3).Row + 1
Workbooks(kitap).Worksheets("Sayfa1").Cells(b, 1) = ListBox2.List(i - 1, 0)
Workbooks(kitap).Worksheets("Sayfa1").Cells(b, 2) = ListBox2.List(i - 1, 1)
Workbooks(kitap).Worksheets("Sayfa1").Cells(b, 3) = ListBox2.List(i - 1, 2)
Workbooks(kitap).Worksheets("Sayfa1").Cells(b, 4) = ListBox2.List(i - 1, 3)
Workbooks(kitap).Worksheets("Sayfa1").Cells(b, 5) = ListBox2.List(i - 1, 4)
Workbooks(kitap).Worksheets("Sayfa1").Cells(b, 6) = ListBox2.List(i - 1, 5)
Workbooks(kitap).Worksheets("Sayfa1").Cells(b, 7) = ListBox2.List(i - 1, 6)
Workbooks(kitap).Worksheets("Sayfa1").Cells(b, 8) = ListBox2.List(i - 1, 7)
Workbooks(kitap).Worksheets("Sayfa1").Cells(b, 9) = ListBox2.List(i - 1, 8)
Workbooks(kitap).Worksheets("Sayfa1").Cells(b, 10) = ListBox2.List(i - 1, 9)
Workbooks(kitap).Worksheets("Sayfa1").Cells(b, 11) = ListBox2.List(i - 1, 10)
Workbooks(kitap).Worksheets("Sayfa1").Cells(b, 12) = ListBox2.List(i - 1, 11)
Workbooks(kitap).Worksheets("Sayfa1").Cells(b, 13) = ListBox2.List(i - 1, 12)
Workbooks(kitap).Worksheets("Sayfa1").Cells(b, 14) = ListBox2.List(i - 1, 13)
Workbooks(kitap).Worksheets("Sayfa1").Cells(b, 15) = ListBox2.List(i - 1, 14)
Workbooks(kitap).Worksheets("Sayfa1").Cells(b, 16) = ListBox2.List(i - 1, 15)
Workbooks(kitap).Worksheets("Sayfa1").Cells(b, 17) = ListBox2.List(i - 1, 16)
Workbooks(kitap).Worksheets("Sayfa1").Cells(b, 18) = ListBox2.List(i - 1, 17)


Next i
MsgBox "Kayıtlar aktarıldı."
Workbooks(kitap).Save
Workbooks(kitap).Close False
Label4.Caption = ""
Exit Sub
hata:
MsgBox "Bir hata oluştu: " & Err.Description, vbExclamation, "İşlem Yapılamadı!"
Label4.Caption = ""
End Sub
diver.kesan
 
İleti: 10
Kayıt: 05 Arl 2012, 14:00
İşletim Sisteminiz: windows
LibreOffice Sürümü: 3.6.3.2

Re: MACRO ? EXCEL-LİBRE

#1040 İleti | diver.kesan | 18 Kas 2013, 15:47

İlk bölümdeki 2 satırı kaldırdım, çalştırdi.
örnek olsun diye detaylandırayım(çok bilirmişim gibi :D )

diyelim öğretmensiniz data dolu hücreleriniz var. Boş bir hücrede NOT(hücre) deyince tanımlanan sonucu alırsınız.

Function NOT(a As Integer)
If a > 0.01 or a<20 Then NOT = "Zayıf aldınız, çalışırsanız geleceği planlarsınız"
If a >20.01 and a<40 Then NOT = "Yine az çalışmışız, biraz daha gayretle iyiler arasına katılabilirsiniz"
.
.
.
End Function



(macro-yeni ile kaydedebilirsiniz )
diver.kesan
 
İleti: 10
Kayıt: 05 Arl 2012, 14:00
İşletim Sisteminiz: windows
LibreOffice Sürümü: 3.6.3.2

Re: MACRO ? EXCEL-LİBRE

#1217 İleti | Hamurcu | 14 Mar 2014, 15:29

Merhaba,

İlk sorunuzun cevabını aşağıdaki şekilde yapabilirsiniz.

Diğer sorunuz için vakit bulduğumda bakabilirim.

Kolay gelsin.

Kod: Tümünü seç
Function bk(a As Integer) As String
   Select Case a
      Case 3  : bk = "YTY"
      Case -1 : bk = "ÜBD"
      Case 1  : bk = "ÜBY"
      Case -2 : bk = "ABD"
      Case 2  : bk = "ABY"
      Case 0  : bk = "ÖSG"
   End Select
End Function
Kullanıcı avatarı
Hamurcu
 
İleti: 55
Kayıt: 06 Ağu 2012, 00:14
Konum: İstanbul
İşletim Sisteminiz: Windows 10
LibreOffice Sürümü: 5.x

Re: MACRO ? EXCEL-LİBRE

#1291 İleti | alihaber | 16 May 2014, 17:58

selamun aleyküm , ben microsoft office EXCELL de yardımcı makro kullanıyorum(ŞÖYLE DİYİM BEN ELEKTRİKÇİYİM PROJE ÇİZİYORUM EXCELL DE BİR PROGRAM YAZMIŞLAR AUTOCAD İLE İRTİBATLI YANİ RAKAMLARI GİRİP AUTOCAD BUTONUNA BASINA BİZE AUTOCAD ÜZERİNDE ÇİZİYOR). libre office te bunu nasıl kullanabilirim mail adresim alihaber@windowslive.com
alihaber
 
İleti: 4
Kayıt: 16 May 2014, 17:14
İşletim Sisteminiz: windows 8 64b
LibreOffice Sürümü: 4.2.4

Re: MACRO ? EXCEL-LİBRE

#1294 İleti | Hamurcu | 19 May 2014, 02:24

@alihaber

Bahsettiğiniz sorunu halledebilmek için bilgisayarımızda Autocad yüklü olması gerekir ancak ben Linux kullandığım için deneme şansım olamayacak.

Ayrıca bundan sonra forumda kendi sorularınız için ayrı ayrı konu başlıkları açarsanız daha doğru olur.

Zira sizin sorunuzun bir önceki soruyla hiç bir bağlantısı yok.
Kullanıcı avatarı
Hamurcu
 
İleti: 55
Kayıt: 06 Ağu 2012, 00:14
Konum: İstanbul
İşletim Sisteminiz: Windows 10
LibreOffice Sürümü: 5.x


Calc - Hesap Tablosu

Kimler çevrimiçi

Kayıtlı kullanıcılar: Google [Bot], Yahoo [Bot]