1. sayfa (Toplam 1 sayfa)
MACRO ? EXCEL-LİBRE
Gönderilme zamanı: 15 Kas 2013, 12:43
gönderen diver.kesan
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
Re: MACRO ? EXCEL-LİBRE
Gönderilme zamanı: 15 Kas 2013, 12:45
gönderen diver.kesan
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
Re: MACRO ? EXCEL-LİBRE
Gönderilme zamanı: 18 Kas 2013, 15:47
gönderen diver.kesan
İlk bölümdeki 2 satırı kaldırdım, çalştırdi.
örnek olsun diye detaylandırayım(çok bilirmişim gibi
)
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 )
Re: MACRO ? EXCEL-LİBRE
Gönderilme zamanı: 14 Mar 2014, 15:29
gönderen Hamurcu
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
Re: MACRO ? EXCEL-LİBRE
Gönderilme zamanı: 16 May 2014, 17:58
gönderen alihaber
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
Re: MACRO ? EXCEL-LİBRE
Gönderilme zamanı: 19 May 2014, 02:24
gönderen Hamurcu
@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.