birinci sayfadaki veriyi diğer sayfaya taşıma
birinci sayfadaki veriyi diğer sayfaya taşıma
Merhabalar. Ekteki dosyayı excelde açtığım zaman, birinci sayfaya verileri girip "commanbutton" tuşuna bastığım zaman, verileri ikinci sayfadaki ilgili satırdaki ilgili hücrelerine yazıp, 1. sayfada bir sonraki sıra numarasını verip, yeni veri girmeme imkan veriyordu. Bu işlemi calc hesap tablosunda yaptıramadım. Yeniden düzenleyip ekli dosya ile gönderirseniz sevinirim. Kolay gelsin.
- Dosya ekleri
-
- Talepler.ods
- (34.65 KiB) 183 kere indirildi
- Hamurcu
- Mesajlar: 265
- Kayıt: 06 Ağu 2012, 00:14
- İşletim Sisteminiz: Windows 10/11 - Pardus Linux
- LibreOffice Sürümü: 7.x
Re: birinci sayfadaki veriyi diğer sayfaya taşıma
Merhaba,
Makrolarınızı aşağıdaki şekilde düzenlerseniz istediğiniz olacaktır.
Kolay gelsin.
Makrolarınızı aşağıdaki şekilde düzenlerseniz istediğiniz olacaktır.
Kolay gelsin.
Kod: Tümünü seç
Private Sub CommandButton1_Click
Dim Doc As Object
Dim Sheet As Object
Dim Cell As Object
Dim ts, kaplan, Satir
ts=1
Doc = ThisComponent
Sheet = Doc.Sheets(0)
Cell = Sheet.getCellRangeByName("B1")
If Cell.Type = com.sun.star.table.CellContentType.EMPTY Then
MsgBox "Sıra No Girmediniz"
Exit Sub
End If
Cell = Sheet.getCellRangeByName("B2")
If Cell.Type = com.sun.star.table.CellContentType.EMPTY Then
MsgBox "Kuyu No Girmediniz"
Exit Sub
End If
Cell = Sheet.getCellRangeByName("B3")
If Cell.Type = com.sun.star.table.CellContentType.EMPTY Then
MsgBox "Seri No Girmediniz"
Exit Sub
End If
Cell = Sheet.getCellRangeByName("B4")
If Cell.Type = com.sun.star.table.CellContentType.EMPTY Then
MsgBox "Başlangıç Tarihi Girmediniz"
Exit Sub
End If
Cell = Sheet.getCellRangeByName("B5")
If Cell.Type = com.sun.star.table.CellContentType.EMPTY Then
MsgBox "Başlangıç Endeksi Girmediniz"
Exit Sub
End If
Cell = Sheet.getCellRangeByName("B6")
If Cell.Type = com.sun.star.table.CellContentType.EMPTY Then
MsgBox "Bitiş Tarihi Girmediniz"
Exit Sub
End If
Cell = Sheet.getCellRangeByName("B7")
If Cell.Type = com.sun.star.table.CellContentType.EMPTY Then
MsgBox "Bitiş Endeksi Girmediniz"
Exit Sub
End If
For Satir=1 To 65536
If Doc.Sheets(1).getCellRangeByName("A"&Satir).Type = com.sun.star.table.CellContentType.EMPTY Then
ts=Satir
Exit For
Else
ts=65537
End If
Next Satir
Doc.Sheets(1).getCellRangeByName("A" & ts).Value = Sheet.getCellRangeByName("B1").Value
Doc.Sheets(1).getCellRangeByName("B" & ts).Value = Sheet.getCellRangeByName("B2").Value
Doc.Sheets(1).getCellRangeByName("C" & ts).Value = Sheet.getCellRangeByName("B3").Value
Doc.Sheets(1).getCellRangeByName("D" & ts).Value = Sheet.getCellRangeByName("B4").Value
Doc.Sheets(1).getCellRangeByName("E" & ts).Value = Sheet.getCellRangeByName("B5").Value
Doc.Sheets(1).getCellRangeByName("F" & ts).Value = Sheet.getCellRangeByName("B6").Value
Doc.Sheets(1).getCellRangeByName("G" & ts).Value = Sheet.getCellRangeByName("B7").Value
ts=Sheet.getCellRangeByName("B1").Value+1
Sheet.getCellRangeByName("B1").Value = ts
Sheet.getCellRangeByName("B2").String = ""
Sheet.getCellRangeByName("B3").String = ""
Sheet.getCellRangeByName("B4").String = ""
Sheet.getCellRangeByName("B5").String = ""
Sheet.getCellRangeByName("B6").String = ""
Sheet.getCellRangeByName("B7").String = ""
End Sub
Re: birinci sayfadaki veriyi diğer sayfaya taşıma
İlginiz için çok teşekkürler Sn. Hamurcu. Yalnız ben makro düzenleme hakkında bilgi sahibi değilim. Nasıl yapacağımı anlatırsanız çok sevinirim. Teşekkürler.
- Hamurcu
- Mesajlar: 265
- Kayıt: 06 Ağu 2012, 00:14
- İşletim Sisteminiz: Windows 10/11 - Pardus Linux
- LibreOffice Sürümü: 7.x
Re: birinci sayfadaki veriyi diğer sayfaya taşıma
Dosyayı düzenleyip mesaja ekledim.
Makro kısmı hakkında anlatımı vakit bulduğumda yapabilirim ama şu an değil.
Umarım işinizi görür.
Kolay gelsin.
Not: Makroların çalışması için eğer güvenlik uyarısı verirse aşağıdaki işlemleri yaptığınızda düzelecektir.
Makro kısmı hakkında anlatımı vakit bulduğumda yapabilirim ama şu an değil.
Umarım işinizi görür.
Kolay gelsin.
Not: Makroların çalışması için eğer güvenlik uyarısı verirse aşağıdaki işlemleri yaptığınızda düzelecektir.
- Araçlar-->Seçenekler menüsünü seçin
LibreOffice-->Güvenlik seçeneğini işaretleyin
Makro Güvenliği butonuna basın
Düşük (Önerilmez) seçin ve onaylayın.
- Dosya ekleri
-
- Talepler.ods
- (26.09 KiB) 201 kere indirildi
Re: birinci sayfadaki veriyi diğer sayfaya taşıma
Herşey için çok teşekkür ederim. Dosya çok güzel olmuş, ellerinize sağlık. KOlay gelsin.