Yazıya Endeksle Çalışan Makro

[baydeniro]

Merhaba arkadaşlar. Ekteki dosyada 2 adet soru bulunmaktadır.
1) Dosya açıldığında sadece 1 kereye mahsus olmak kaydı ile ekrana gelecek box bir yazı talep edecek ve kullanıcının yazdığı 3X sayfasındaki A1 hücresine yazılacak.

2) 3X sayfasında B1 ve C1 hücreleri birbirinin aynısı değil ise dosya içindeki makro çalışacak.

Yardımcı olanlara çok teşekkürler.

 

[N.Ziya Hiçdurmaz]

yanıt

Sub auto_open()
ver = InputBox("Veri anahtarını giriniz.")
Sheets("3X").Range("a1") = ver
If Sheets("3X").Range("b1") <> Sheets("3X").Range("c1") Then
Call OTURANBOGA
Else
MsgBox "Veriler yanlış kayıt edilmiş."
End If
End Sub

 

[baydeniro]

Çok Teşekkürler

Sayın VBA gerçekten tebrik ederim. Süper bir kod olmuş. Valla sizlere imreniyorum. Sadece şöyle bir değişiklik yapmak mümkün mü. Bu kod sadece dosya ilk açıldığında çalışsın. Çok teşeekkürler.

 

[Levent Menteşoğlu]

Yukarıda önerilen koda aşağıdaki mavi renkli satırı ilave edin.

[LEFT]Sub auto_open()
[B][COLOR=blue]if sheets("3X").[a1]<>"" then exit sub[/COLOR][/B]
ver = InputBox("Veri anahtarını giriniz.")
Sheets("3X").Range("a1") = ver
If Sheets("3X").Range("b1") <> Sheets("3X").Range("c1") Then
Call OTURANBOGA
Else
MsgBox "Veriler yanlış kayıt edilmiş."
End If
End Sub[/LEFT]

 

[baydeniro]

Çok Teşekkürler

Çok teşekkürler sayın leventm. İyi çalışmalar.

 

[cebelitarık]

Selamlar Arkadaşım Serdar Okan
Otomatik açılışŞ Makrosunu Nereye Kayit Edeceğim.
Bu dosyanın çalışan son halini verebilirsen memnun olurum.
Saygılar

 

[cebelitarık]

sorumu cevaplarsanız müteşekkir olacağım.
Selamlar Arkadaşım Serdar Okan
Otomatik açılışŞ Makrosunu Nereye Kayit Edeceğim.
Bu dosyanın çalışan son halini verebilirsen memnun olurum.
Saygılar

 

[serinci]

otomatik açıılış makrosunu

Module içerisine yapıştırın OTURANBOGA makrosunun bulunduğu modüle yapştırabilirsiniz.