Sürüm Numarası Vererek Sayfada İşlem Yapmak

merakli · 16 Ara 2021

SurumKontrol Sub'ı ile Google E-Tablodaki $K$1 de bulunan değeri alıyoruz ve bu sayfadaki Veri!$K$1 hücresine yazdırıyoruz.
IlkIslem ve DigerIslem isimli iki tane örnek Sub'ımız var.
Yapılmaya çalışılan ise şu şekildedir.
Excel dosyası her açıldığında
SurumKontrol Sub'ı ile Google E-Tablodaki $K$1 de bulunan değeri Veri!$K$1 hücresindeki değer ile karşılaştırıp, bu değer
AYNI ise
IlkIslem Sub'ını
FARKLI ise
DigerIslem Sub'ını
çalıştırmak istiyorum.
Bu işlemi nasıl bir mantık örgüsü ile yapacağım konusunda önceden bir tecrüben yok
diğer bir problem Veri!$K$1 hücresinde veri varsa SurumKontrol Sub'ı $K$1 hücresinin sağına yazdırıyor.

Kafamdaki model şu şekilde
Google E-Tablodaki $K$1 de bulunan değeri alıp Veri!$K$1 hücresindeki değerle karşılaştırıp bu değerden küçük ya da eşit değilse FALSE eşitse TRUE ya da tam tersi bir değeri döndürüp bu değere göre IlkIslem ya da DigerIslem Sub'ını çalıştırırabilmek...

Ömer BARAN · 16 Ara 2021

@merakli

Yanlış düşünmüyorsam aşağıdaki şekilde işlem yaparsanız istenilen sonuç elde edilir.
-- BuÇalışmaKitabı bölümündeki kodda Run... satırının hemen üstüne versiyon = Sheets("Veri").[K1].Value şeklinde bir satır ekleyin.
-- Module1'de en tepeye (mevcut kodların içerisine değil) Public versiyon diye bir satır ekleyin.
-- SurumKontrol isimli makro kodunda, End With ...... End Sub arasını şöyle değiştirin.

VBA:

İndirmek için giriş yapmanız gerekmektedir.
(10 satır)

merakli · 16 Ara 2021

Ömer BARAN' Alıntı:
@merakli
Yanlış düşünmüyorsam aşağıdaki şekilde işlem yaparsanız istenilen sonuç elde edilir.
-- BuÇalışmaKitabı bölümündeki kodda Run... satırının hemen üstüne versiyon = Sheets("Veri").[K1].Value şeklinde bir satır ekleyin.
-- Module1'de en tepeye (mevcut kodların içerisine değil) Public versiyon diye bir satır ekleyin.
-- SurumKontrol isimli makro kodunda, End With ...... End Sub arasını şöyle değiştirin.

Teşekkür ederim @Ömer BARAN Bey,
Şöyle bir durum var zaten mantığını ilerletemediğim bölümde oydu.
Excel dosyasını açtık E-Tablodaki $K$1 de bulunan değeri aldı ve Veri!$K$1 deki değere baktı E-Tablodaki $K$1 de bulunan değer büyük ya da farklı ise gerekli Sub'ı çağırıp Veri!$K$1 deki değeri E-Tablodaki değerle eşitlemesi gerekiyor.
işte bu durumu tam olarak nerede nasıl yapabileceğimi kurgulayamadım

birde ilginçtir ki şuan eklediğim dosyada değer 111 e-tabloda 112 olmasına rağmen "Sürüm numaraları AYNI olduğu için bu işlem gerçekleştirildi" diyor.

Birde [L1].ClearContents yaptığımız için olsa gerek sürekli bir satır artıyor gibi o içeriği sarı renkli hücre sürekli sağa gidiyor

Ömer BARAN · 16 Ara 2021

Onun farkında olduğum için L1 hücresini sildirmeyi düşünmüştüm.
Bu QUERY işlemini kendi dosyalarımda hiç kullanmış değilim (yani çok hakim olduğum konular değil).

Benim anladığım; mevcut kod, her tetiklendiğinde YENİ BİR BAĞLANTI kuruyor.
Zaten mevcut kodun en sonundaki silConnections satırı veri alma sonrasında, BAĞLANTILARI SİLİYOR.

Yani işlem BAĞLANTININ YENİLENMESİ DEĞİL, SIFIRDAN BAĞLANTI oluşturma diye anlıyorum.
Muhtemelen bir sağa kaymanın sebebi de bu olsa gerek.

Bence asıl konu e-tablodaki hücre değerinin OKUNMASI (alana yazılmadan) sonrasında versiyon karşılaştırması yapmak
ancak bu konuda pek tecrübe sahibi değilim.

Konu hakkında bilgi sahibi diğer arkadaşlarımız ilgilenirlerse sevinirim.
Umarım konuyu fark eden olur.

Ömer BARAN · 16 Ara 2021

@merakli .
Art arda ikinci mesajım oluyor.

Malum, olaylara pratik yaklaşırım ve basit düşünürüm.
Bence çözüm; e-tablo bağlantısını, mevcut Veri sayfasına değil, kod tarafından belgeye eklenip,
veri alma sonrasında tekrar silinecek olan yeni bir sayfada yapmak, versiyon kontrolüne göre de
Veri sayfası K1 hücresini güncellemek veya aynı bırakmak.

Şayet versiyon numarası yeniyse, yeni veriler üzerindeki işlemlerin kod tarafından oluşturulan yeni sayfa üzerinden yapılması gerekir.
Mevcut İlkIslem makrosunun içerisine yazılacak asıl veri güncelleme işlemlerinde bu yeni sayfanın kullanılmasına dikkat edeceksiniz.
Bu Çalışma Kitabı bölümüne ve Modul1'in en üstüne eklemenizi önerdiğim önceki cevabımı yok saymak (değişiklikleri kaldırmak) lazım.

Buna göre mevcut kodun şöyle güncellenmesi yeterli olur gibi görünüyor (denemeniz lazım).

VBA:

İndirmek için giriş yapmanız gerekmektedir.
(39 satır)

merakli · 17 Ara 2021

Ömer BARAN' Alıntı:
@merakli .
Art arda ikinci mesajım oluyor.

Malum, olaylara pratik yaklaşırım ve basit düşünürüm.
Bence çözüm; e-tablo bağlantısını, mevcut Veri sayfasına değil, kod tarafından belgeye eklenip,
veri alma sonrasında tekrar silinecek olan yeni bir sayfada yapmak, versiyon kontrolüne göre de
Veri sayfası K1 hücresini güncellemek veya aynı bırakmak.

Şayet versiyon numarası yeniyse, yeni veriler üzerindeki işlemlerin kod tarafından oluşturulan yeni sayfa üzerinden yapılması gerekir.
Mevcut İlkIslem makrosunun içerisine yazılacak asıl veri güncelleme işlemlerinde bu yeni sayfanın kullanılmasına dikkat edeceksiniz.
Bu Çalışma Kitabı bölümüne ve Modul1'in en üstüne eklemenizi önerdiğim önceki cevabımı yok saymak (değişiklikleri kaldırmak) lazım.

Buna göre mevcut kodun şöyle güncellenmesi yeterli olur gibi görünüyor (denemeniz lazım).

@Ömer BARAN Bey Teşekkür ederim bu mantıkla şuan bir problem görünmüyor gibi

	Aynı Sayfada İki Farklı Kodu Birleştirme Epakambalaj 26 Ara 2022 Makro Soruları
	İstenen Sayfada İstenen Hücreye Gitme ExcelDepo 1 Eyl 2023 Makro Soruları
	Çalışma Kitabı Açılırken Sürüm Kontrolü Yapma ErolU 27 Haz 2024 Makro Soruları
	Office 2007 2010 sürümlerinde Çalışmayan Kod selmank 15 Eki 2021 Makro Soruları
	ListView Nesnesini 32 Bit Sürümde Çalıştırma Feyzullah 5 Nis 2025 Makro Soruları