birinci sayfadaki veriyi diğer sayfaya taşıma

birinci sayfadaki veriyi diğer sayfaya taşıma

#1213 İleti | kahramang1 | 12 Mar 2014, 12:27

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.
Eklentiler
Talepler.ods
(34.65 KiB) 9 defa indirildi
kahramang1
 
İleti: 15
Kayıt: 25 Şub 2014, 15:32
İşletim Sisteminiz: windows xp
LibreOffice Sürümü: 4.2.1.1

Re: birinci sayfadaki veriyi diğer sayfaya taşıma

#1216 İleti | Hamurcu | 14 Mar 2014, 12:21

Merhaba,

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
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: birinci sayfadaki veriyi diğer sayfaya taşıma

#1220 İleti | kahramang1 | 15 Mar 2014, 21:26

İ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.
kahramang1
 
İleti: 15
Kayıt: 25 Şub 2014, 15:32
İşletim Sisteminiz: windows xp
LibreOffice Sürümü: 4.2.1.1

Re: birinci sayfadaki veriyi diğer sayfaya taşıma

#1221 İleti | Hamurcu | 15 Mar 2014, 23:37

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.

    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.

Ancak normal şartlarda kötü niyetli makroların çalışmaması için bu ayarı daha yüksek güvenlik seviyesinde tutmanızı öneririm.
Eklentiler
Talepler.ods
(26.09 KiB) 15 defa indirildi
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: birinci sayfadaki veriyi diğer sayfaya taşıma

#1226 İleti | kahramang1 | 21 Mar 2014, 10:56

Herşey için çok teşekkür ederim. Dosya çok güzel olmuş, ellerinize sağlık. KOlay gelsin.
kahramang1
 
İleti: 15
Kayıt: 25 Şub 2014, 15:32
İşletim Sisteminiz: windows xp
LibreOffice Sürümü: 4.2.1.1


Calc - Hesap Tablosu

Kimler çevrimiçi

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

cron