Excel Değişken sayfa ismi ile işlem

AhmetRasim

Yönetici

Kullanıcı

Katılım

6 Ara 2016

Mesajlar

1,017

• 3 Mar 2021

• #2

Merhabalar Sn. @selis ;

If MsgBox("SAP veri güncellemek istiyor musunuz? ( Sap açıp giriş yapınız. ) ", vbYesNo ) = vbYes Then satırından sonra aşağıdaki satırı ekleyiniz.

VBA:

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

Bu satır sayfaismi değişkenine bir önceki ayın ismini atar.

Dosyanızın yedeğini alarak; Kod içinde değiştirmeniz gereken satırlar ise;
Sheets("ŞUBAT")..... ile başlayan satırları Sheets(sayfaismi)...... ile değiştirmek.

 

Oyla 0 Olumsuz oyla

selis

Kullanıcı

Katılım

17 Mar 2021

Mesajlar

721

• 3 Mar 2021

• #3

Çok teşekkür ederim hocam, peki şubat ayı için kendisi sayfa açabilir mi? Ben hazır sayfalara bu isimleri tek tek yazmıştım eğer kodla yapabilirsem çok iyi olur

 

Oyla 0 Olumsuz oyla

selis

Kullanıcı

Katılım

17 Mar 2021

Mesajlar

721

• 3 Mar 2021

• #4

Kod:

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

Bide burda hata alıyorum, out of range hatası.. neden olabilir?

 

Oyla 0 Olumsuz oyla

AhmetRasim

Yönetici

Kullanıcı

Katılım

6 Ara 2016

Mesajlar

1,017

• 3 Mar 2021

• #5

Merhabalar;
Çift tırnaklar fazladan olmuş.
Sheets("sayfaismi")... olan satırları Sheets(sayfaismi) bu şekilde çift tırnak olmadan yazınız.

 

Oyla 0 Olumsuz oyla

selis

Kullanıcı

Katılım

17 Mar 2021

Mesajlar

721

• 3 Mar 2021

• #6

Evet hocam oldu çok teşekkür ederim.. Aşağıdaki gibi devam ettim, burda c nin satır numarasını verdiğini düşünmüştüm ama Şubat yazdı sadece hocam, Ben aslında Sheets 1 de A sütununda Şubatın bulunduğu satır numarasını istemiştim..

Kod:

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

 

Oyla 0 Olumsuz oyla

AhmetRasim

Yönetici

Kullanıcı

Katılım

6 Ara 2016

Mesajlar

1,017

• 3 Mar 2021

• #7

Merhaba;
Önce sayfa ekleme için şu kodları kullanabilirsiniz.
Eklenen sayfaya, sayfaismi değişkenindeki metni yazar.

VBA:

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

c değişkenine satır numarası vermek için de aşağıdaki gibi kullanabilirsiniz.

VBA:

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

 

Oyla 0 Olumsuz oyla

selis

Kullanıcı

Katılım

17 Mar 2021

Mesajlar

721

• 4 Mar 2021

• #8

Çok teşekkürler.. Çalıştı bu şekilde..

 

Oyla 0 Olumsuz oyla

selis

Kullanıcı

Katılım

17 Mar 2021

Mesajlar

721

• 4 Mar 2021

• #9

Hocam bir önceki ayın ilk günü ve son gününü bulmak istiyorum, böyle bir şey mümkün mü?

 

Oyla 0 Olumsuz oyla

selis

Kullanıcı

Katılım

17 Mar 2021

Mesajlar

721

• 4 Mar 2021

• #10

https://***/wz9zhtnzejc8/2021_Kesim_Fire_Raporu.xlsm.html

Hocam bu şekilde koduda içinde, eğer denediğim gibi kodla ayın ilk günü ve son gününü yazdırabilirsek çok iyi olur..

 

Oyla 0 Olumsuz oyla

Ömer BARAN

Yönetici

Kullanıcı

Katılım

11 Nis 2019

Mesajlar

9,667

• 4 Mar 2021

• #11

Örnek belelerinizi harici sunuculara yükleyip, forumda link vermek yerine
doğrudan forumdaki cevaplarınıza ekleyebilirsiniz.

Forumumuzun SORU-CEVAP bölümünde (şu an bu bölümdesiniz),
dosya yüklemek/indirmek için özel bir üyelik türü yoktur ve halen ücretsizdir.

Bir tavsiyede bulunmak isterim.
Belgede yıl bilgisi zaten var ( sayfa adı 2021 Özet ), ay sayfalarını da 01, 02, 03,... gibi 2 karakterli sayılar şeklinde adlandırırsanız
sayfa isimlerinden hareketle hesaplamalar (matematiksel işlemler) yapmak daha kolay ve kontrol edilebilir olur.

Belgenize bakmadım, Sayın @AhmetRasim ilgilenecektir.

 

Oyla 0 Olumsuz oyla

selis

Kullanıcı

Katılım

17 Mar 2021

Mesajlar

721

• 4 Mar 2021

• #12

Teşekkürler hocam..

 

Oyla 0 Olumsuz oyla

AhmetRasim

Yönetici

Kullanıcı

Katılım

6 Ara 2016

Mesajlar

1,017

• 4 Mar 2021

• #13

Merhabalar;
İş yeri internet bağlantısı kısıtlı olduğu için dosya yükleme siteleri yasaklı. Bu nedenle dosyaya bakamadım ama önceki ayın ilk ve son günü için aşağıdaki satırları kullanabilirsiniz.

VBA:

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

-- EoMonth Fonksiyonu, yerleşik formüllerdeki Seriay Fonksiyonudur.

 

Oyla 0 Olumsuz oyla

selis

Kullanıcı

Katılım

17 Mar 2021

Mesajlar

721

• 4 Mar 2021

• #14

Hocam çalıştı ancak formatı date değil sanırım o yüzden hücreye bunu yazdı

Kod:

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

44228​

Date formatında 01.02.2021..

 

Oyla 0 Olumsuz oyla

AhmetRasim

Yönetici

Kullanıcı

Katılım

6 Ara 2016

Mesajlar

1,017

• 4 Mar 2021

• #15

A1 ve B1 hücrelerini seçip Hücre Biçimini Tarih olarak seçiniz.

Ya da kod ile yapmak isterseniz, aşağıdaki satırları kullanabilirsiniz.

VBA:

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

 

Oyla 0 Olumsuz oyla

selis

Kullanıcı

Katılım

17 Mar 2021

Mesajlar

721

• 5 Mar 2021

• #16

Oldu hocam çok çok teşekkür ediyorum..

 

Oyla 0 Olumsuz oyla

AhmetRasim

Yönetici

Kullanıcı

Katılım

6 Ara 2016

Mesajlar

1,017

• 5 Mar 2021

• #17

Merhabalar;
Rica ederim.
Saygılarımla, iyi çalışmalar.

 

Oyla 0 Olumsuz oyla