• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

Çözüldü Tarihe Göre Eğer Makrosu Yazmak

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.

uğurbatur

Yeni Üye
Katılım
30 Ara 2023
Mesajlar
47
Aldığı beğeni
8
Excel V
Office 365 TR
Konu Sahibi
Merhaba;

Ekli dosyamda A1 hücresinde tarihin hangi ay olduğunu tespit edip ona göre makro çalıştırmak istiyorum.
Makro seçili hücre A1 de iken aktif oluyor.

Öncelikle makroyu kendim yapmak istedim. İzlediğim yol:
Makro kaydet başlatıyorum.
B1 hücresinde iken AY fonksiyonunu kullanıyorum ve makroyu kaydediyorum.
Sonuç :
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=MONTH(RC[-1])"


Bu sonuca göre elimdeki eğer makrosunu düzenliyorum, ama hata döndürüyor.
Bu kod nasıl yazılmalı ?

If (ActiveCell.Offset(0, 0) = "") Then
[B]ActiveCell.Offset(0, 1).Select[/B]
ActiveCell.FormulaR1C1 = "Satır boş"

ElseIf (ActiveCell.Offset(0, 0) = Month = 3) Then

[B]ActiveCell.Offset(0, 1).Select[/B]
ActiveCell.FormulaR1C1 = "Oldu bu iş"

Else

[B]ActiveCell.Offset(0, 1).Select[/B]
[B]ActiveCell.FormulaR1C1 = "Daha çok çalış"[/B]

End If
 
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
Bu satırınız hatalı.

Ya böyle;
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.

Ya da böyle;
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
olması gerekir.

Dosyanızı indirmeye fırsatım olmadı sadece paylaştığınız koda bakarak söylüyorum.
 
Konu Sahibi
ElseIf (ActiveCell.Offset(0, 0) = 3) Then
bu satırı baz alsam ay ifadesi yok kod içinde, olmaz zaten

ElseIf (ActiveCell.Offset(0, 0) = Month) Then
bu satırı baz alsam hangi ay olduğu yok, Ocak için ayrı bir kod yazacam, şubat için ayrı. Bu da olmaz.
 
Bu şekilde deneyebilirsiniz.
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Çözüm
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst