• Foruma hoş geldin 👋 Ziyaretçi

    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 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
Kullanıcı Bilgileri
Aktiflik
Çevrimdışı
Katılım
30 Ara 2023
Mesajlar
39
Aldığı beğeni
4
Excel V
Office 365 TR
Konuyu Başlatan
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
 

Ekli dosyalar

  • Deneme.xlsm
    13.3 KB · Gösterim: 2
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
Bu satırınız hatalı.

Ya böyle;
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.

Ya da böyle;
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
olması gerekir.

Dosyanızı indirmeye fırsatım olmadı sadece paylaştığınız koda bakarak söylüyorum.
 
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.
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 
Çözüm
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst