S

Çözüldü formüllü sutunları koda çevirme Yeniden Değerleme

  • Konuyu başlatan Konuyu başlatan spacebar
  • Başlangıç tarihi Başlangıç tarihi

spacebar

Normal Üye
Excel Versiyonu
Excel 2019
Excel Sürümü
64 Bit
Excel Dili
Türkçe
değerli üstadlarım. bu çalışma daha önce yapılmıştı. ancak uygulama değiştiği için yeniden düzenlenmesi gerekiyor.
yapılması istenen: Data sayfasında "Hesapla" makrosunda J K ve L sutunlarındaki formülasyonun yeniden düzenlenmesi.
şimdiden teşekkür ederim.
 

Ekli dosyalar

Çözüm
@spacebar
Dosyanız ekte.
Kodun işlem yaptığını gözle fark edin diye 1 saniyelik bekleme ekledim, koddaki bekletme satırını kaldırabilirsiniz.

İsterseniz, kodu çalıştırmadan önce;
sayfa korumasını kaldırıp sağdaki sütunları görünür hale getirdikten sonra
ilk satır formül alanını fareyle sağdaki boş sütunlara TAŞIyın ve aşağı doğru liste boyunca kopyalayın,
ardından da kodu çalıştırıp, sonuçların formüllerle aynı olduğunu kontrol edin.
@spacebar

Hata/eksiklik/yanlış olan nedir?
EN önemlisi de OLMASI GEREKEN nedir?

Hiçbir açıklama yazmamışsınız.
üstad merhaba. yapılması istenen data sayfasında J K ve L sutununda olan formülleri makroya çevirmek. şu an belge içinde hesapla makrosu var. buradaki kodları eski formüle göre düzenlenmişti. şimdi bunların revize edilmesi gerekiyor. umarım anlatabilmişimdir. bir çok meslektaşımın kullanacağı bir çalışma olacak. ilginiz için teşekkür ederim.
 
@spacebar

-- Sayfa korumasını kaldırın,
-- sağdaki gizli sütunları görünür yapın,
-- J2'yi kopyalayıp, Z2 hücresine ÖZEL YAPIŞTIR >> BİÇİMLERİ şeklinde yapıştırın,
-- sağdaki sütunları tekrar gizleyin ve sayfa korumasını tekrar uygulayın.
-- bicimlendir makro kodunda yer alan .[Q1:AE2].Copy: .Rang.... kısmındaki Q1'i, Q2 olarak değiştirin.
-- mevcut hesapla makro kodunu da aşağıdakiyle değiştirin.

VBA:
Görüntülemek için giriş yapmanız gerekmektedir.
(21 satır)
 
@spacebar

-- Sayfa korumasını kaldırın,
-- sağdaki gizli sütunları görünür yapın,
-- J2'yi kopyalayıp, Z2 hücresine ÖZEL YAPIŞTIR >> BİÇİMLERİ şeklinde yapıştırın,
-- sağdaki sütunları tekrar gizleyin ve sayfa korumasını tekrar uygulayın.
-- bicimlendir makro kodunda yer alan .[Q1:AE2].Copy: .Rang.... kısmındaki Q1'i, Q2 olarak değiştirin.
-- mevcut hesapla makro kodunu da aşağıdakiyle değiştirin.

VBA:
Görüntülemek için giriş yapmanız gerekmektedir.
(21 satır)
üstad ellerinize sağlık mükemmel çalışıyor. çok teşekkür ederim. ancak bu konuda bir desteğinize daha ihtiyacım var. bu da aynı çalışmanın devamı. başka bir belge. burada da sadece J sutunu formüle edilmesi gerekiyor. (veya H-O sutunları). bunu da yaparsanız çok sevinirim. saygılarımla...
 

Ekli dosyalar

@spacebar

-- Sayfa korumasını kaldırın,
-- sağdaki gizli sütunları görünür yapın,
-- J2'yi kopyalayıp, Z2 hücresine ÖZEL YAPIŞTIR >> BİÇİMLERİ şeklinde yapıştırın,
-- sağdaki sütunları tekrar gizleyin ve sayfa korumasını tekrar uygulayın.
-- bicimlendir makro kodunda yer alan .[Q1:AE2].Copy: .Rang.... kısmındaki Q1'i, Q2 olarak değiştirin.
-- mevcut hesapla makro kodunu da aşağıdakiyle değiştirin.

VBA:
Görüntülemek için giriş yapmanız gerekmektedir.
(21 satır)
üstad çalışma yarım kaldı. bakabildiniz mi :(
 
@spacebar
Dosyanız ekte.
Kodun işlem yaptığını gözle fark edin diye 1 saniyelik bekleme ekledim, koddaki bekletme satırını kaldırabilirsiniz.

İsterseniz, kodu çalıştırmadan önce;
sayfa korumasını kaldırıp sağdaki sütunları görünür hale getirdikten sonra
ilk satır formül alanını fareyle sağdaki boş sütunlara TAŞIyın ve aşağı doğru liste boyunca kopyalayın,
ardından da kodu çalıştırıp, sonuçların formüllerle aynı olduğunu kontrol edin.
 

Ekli dosyalar

Çözüm
@spacebar
Dosyanız ekte.
Kodun işlem yaptığını gözle fark edin diye 1 saniyelik bekleme ekledim, koddaki bekletme satırını kaldırabilirsiniz.

İsterseniz, kodu çalıştırmadan önce;
sayfa korumasını kaldırıp sağdaki sütunları görünür hale getirdikten sonra
ilk satır formül alanını fareyle sağdaki boş sütunlara TAŞIyın ve aşağı doğru liste boyunca kopyalayın,
ardından da kodu çalıştırıp, sonuçların formüllerle aynı olduğunu kontrol edin.
üstadım ellerinize sağlık. tüm meslektaşlarımın faydalanacağı bir çalışma olacak. hepsi adına teşekkür ederim.
 
Üst