düşey ara özelliği

düşey ara özelliği

#1274 İleti | kahramang1 | 08 May 2014, 08:37

ekli tabloda sayfa1 alanında "kuyu" bölümüne numarayı yazdığımda (örneğin 2006) mayıs sayfasına gidip, 2006 nolu kuyunun ilk endeksini alarak sayfa1 deki ilk endeks bölümüne yazacak. Sayfa 1 de son endeksi manuel olarak biz gireceğiz. Entere bastığımızda elle yazdığımız "son endeks" değerini mayıs sayfasındaki 2006 nolu kuyunun son endeksine yazacak. Bu konuya ilişkin makro çalışmasını yapıp, ekli dosya olarak gönderirseniz çok sevinirim. Kolay gelsin.
Eklentiler
nisan.ods
(99.67 KiB) 28 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: düşey ara özelliği

#1275 İleti | Hamurcu | 08 May 2014, 09:39

MAYIS sayfasında İLK ENDEKS neresi?
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: düşey ara özelliği

#1276 İleti | kahramang1 | 08 May 2014, 11:16

Sayın hamurcu, ilginiz için teşekkürler. Yazdırmak için sayfaya sığması için gizlemiştim o sütunları. Sütunları görünür halde size tekrar gönderiyorum. Teşekkürler. "D" sütunundaki değerler alınacak her kuyu için.
Eklentiler
nisan.ods
(89.2 KiB) 24 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: düşey ara özelliği

#1278 İleti | Hamurcu | 08 May 2014, 22:37

Merhaba,

Aslında bu tip ihtiyacımı çözün gönderin tarzı sorulara cevap yapmıyoruz.

Ancak benzer problemi olan arkadaşlarda görsün diye hem sizin dosyanızı hazırladım hemde kullandığım formülleri aşağıdaki resimlerde gösterdim.

İlk olarak Sayfa isimlerinde üğışçöÜĞİŞÇÖ harflerini kullanmayın.

Siz 2. sayfaya mayıs ismini vermişsiniz. mayıs kelimesindeki ı harfi ingiliz alfabesinde yoktur ve genelde problem çıkartır. Bu yüzden sayfa adını MAYIS olarak değiştirdim.

Sayfa1'de KUYU alanına yazdığınız numarayı, MAYIS sayfasındaki ilk 4 kolonda arıyor ve bulduğunda aradığı bölgenin 4. kolonundaki değeri veriyor. Sizin örneğinizde bu İLK ENDEKS oluyor.

Sayfa1.png
Sayfa1.png (52.57 KiB) 385 defa görüntülendi


Sonrasında SON ENDEKS'e yazdığınız değeri MAYIS sayfasındaki ilgili kolona eğer KUYU numaraları aynı ise yazıyor aksi halde 0 yazıyor.

MAYIS.png
MAYIS.png (70.29 KiB) 385 defa görüntülendi
Eklentiler
nisan.ods
(88.79 KiB) 30 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: düşey ara özelliği

#1279 İleti | kahramang1 | 09 May 2014, 09:04

İlginiz için teşekküeler. size bahsettiğim herşeyi yapmışsınız. Lakin şöyle bir sorun var. Örneğin 2006 yazdığımda 1. sayfaya 2006 nın ilk endeksini getiriyor. Elle son endeksi yazıyorum. Entere bastığımda son endeksi de 2. sayfada 2006 nolu kuyunun son endeksine yazıyor. Daha sonra sıradaki 6215 nolu kuyuyu çağırıyorum. Yine ilk endeksi getiriyor. Yine elle son endeksi yazıp enter tuşuna bastığımda 2006 nolu kuyunun son endeksini siliyor. Bunu engellemenin yolunu da belirtireniz 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: düşey ara özelliği

#1288 İleti | kahramang1 | 15 May 2014, 10:38

Sayın hamurcu 9 mayıstan bu yana her gün 10-15 defa forum sitesini açıp, cevap var mı diye bakıyorum. Düşey ara ile ilgili sıkıntımı giderirseniz çok sevineceğim.
kahramang1
 
İleti: 15
Kayıt: 25 Şub 2014, 15:32
İşletim Sisteminiz: windows xp
LibreOffice Sürümü: 4.2.1.1

Re: düşey ara özelliği

#1292 İleti | Hamurcu | 19 May 2014, 02:15

Merhaba,

Gecikme için kusura bakmayın ancak haftasonu veya tatil gecelerinde fırsat buluyorum.

Sizin tablonuzdaki daha önce Microsoft Excel ile yazdığınız makroların tamamını iptal ettim ve LibreOffice'te aşağıdaki basit makroyu yazdım.

Kod: Tümünü seç
Sub SonEndeksiYaz

  Dim Kitap
  Dim Sayfa1, Mayis
  Dim KuyuNo, Kuyular
  Dim Satir

  Kitap=ThisComponent
  Sayfa1=Kitap.Sheets(0)
  Mayis=Kitap.Sheets(1)
  KuyuNo=Sayfa1.getCellRangeByName("C3").Value
 
  For Satir=17 To 106
    Kuyular=Mayis.getCellByPosition(0,Satir).Value
    If KuyuNo=Kuyular Then
      SonEndeks=Mayis.getCellByPosition(4,Satir)
      SonEndeks=Sayfa1.getCellRangeByName("B3").Value
    End If
  Next Satir   
 
End Sub


Sonrasında Sayfa1'de yeni bir buton oluşturdum ve adını TAMAM yaptım.

Sonrasında yukarıda yazdığım makroyu bu butona bağladım.

Dosyanın son halini mesaja ekliyorum.

Umarım merak eden tüm arkadaşların işine yarar.

Kolay gelsin.
Eklentiler
Adsız 2.ods
(47.53 KiB) 37 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: düşey ara özelliği

#1301 İleti | kahramang1 | 20 May 2014, 11:40

İlgi ve alakanız için çok teşekkür ederim. Benim çok işime yaradı. Elbette diğer arkadaşların da işine yarayacaktır. Kolaylıklar diliyorum.
kahramang1
 
İleti: 15
Kayıt: 25 Şub 2014, 15:32
İşletim Sisteminiz: windows xp
LibreOffice Sürümü: 4.2.1.1

Re: düşey ara özelliği

#1849 İleti | AhmetC | 27 Oca 2016, 15:49

Merhaba,
Önceki excel den kalan bir buton var. Bir türlü kaldırıp silemedim. Yardımcı olabilecek olan var mı?
AhmetC
 
İleti: 1
Kayıt: 27 Oca 2016, 15:39
İşletim Sisteminiz: Windows 7 Enterprise
LibreOffice Sürümü: 4.4.6.3

Re: düşey ara özelliği

#1850 İleti | Hamurcu | 27 Oca 2016, 18:33

@AhmetC

Hangi butondan bahsediyorsunuz?

http://forum.libreoffice.org.tr/viewtopic.php?f=6&t=617&p=1850#p1292 gönderdiğim dosyada eskiden kalma dediğiniz buton hangisi?
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], Yandex [Bot]

cron