Hücre dolu ise makro çalışsın

[red_lion1980]

slm arkadaşlar böyle bir kod veya formul varmı hücre dolu ise makro çalışsın boş ise çalışmasın

 

[Skorpiyon]

Sayın red lion1980,

Elbette var. Örneğin;

Sub hucre()
If Range("A1").Value = "" then
goto bitir
else
application.run "Calis"
end if
bitir:
end sub
-------------------
sub Calis()
Range("B1").value = Range("A1").value
end sub

Eğer A1 hücresi boş değilse "Calis" ismindeki modül çağırılır.

Gibi....

Saygılarımla...

 

[red_lion1980]

slm

saolun peki bunu sayfa isimlerine göre nasıl yaparım mesela sayfa1 de çalışsın ama sayfa2 ikide çalışmayacak yanı belirttigim sayfada çalışacak

 

[Skorpiyon]

Sayın red lion1980,

Sub hucre()
Sheets("Sayfa1").select
If Range("A1").Value = "" then
goto bitir
else
application.run "Calis"
end if
bitir:
end sub

Yukarıdaki bölümü eklerseniz, IF ile başlayan sorgunun hangi sayfada olacağını belirlemiş olursunuz. Böylece diğer sayfalara bakılmaz. ( İlk eklediğimiz kodda da Aktif olan sayfada işlem yaptırılmıştı zaten.)

Saygılarımla...

 

[red_lion1980]

sagol

sagol arkadaşım

 

[red_lion1980]

slm

slm arkadaşım yapmaya çalıştım ama olmadı benim istedigim o hücre dolu ise dosyamı açtıgım zaman form gözukmesi boşsa form gözukmesin ama bir türlü olmadı

 

[enteresan]

Sub auto_open()
Sheets("Sayfa1").Select
If Range("A1").Value = "" Then
GoTo bitir
Else
Application.Run "Calis"
End If
bitir:
End Sub

Sub Calis()
UserForm1.Show
End Sub


bu şekilde dener misiniz...

 

[Seyit Tiken]

Soruyu ne derece doğru anlamışım? Aşağıdaki kodu deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Sayfa1.[a1] <> "" Then
UserForm1.Show 0
Else
End
End If
End Sub

 

[katip16487]

Belgemde DÜZENLE isminde bir makrom mevcut.

Sayfa1'in h38 hücresi dolu ise DÜZENLE isimli makro çalışmasın, "Lüften Bu belgede işlem yapmayınız" uyarısı versin ve işlemden çıkarak A1 hücresine dönsün.

Boş ise makro çalışsın.

Bu şekilde kodu yazabilir miyiz?

 

[katip16487]

Makrom bu;


Sub Taahhüt_Tutanağı()
Sheets("Taahhüt_Tutanağı").Visible = True
Sheets("Taahhüt_Tutanağı").Select
Call KORUMA
Call DUZEN
Call KORUMAYAAL
End Sub

 

[tncy1455]

Arkadaşlar yardımınıza ihtiyacım var.
Bir userformum var burada butona bastığımda textbox lara "ad soyad" " t.c" ve "ünvan" ları sırasıyla getirsin,ama getirme şartı excel sayfasında b12 den b1500 e kadar isim var bu isimlerin karşısında birşey yazıyorsa yani "e12" den" e1500" e kadar olan kısımdaki hücrede herhangi birşey yazarsa yazılı hücrenin karşısına gelen yani "b" "c" "d" hücresindeki "ismi" "t.c" ve "ünvanı" texbaxlara yazsın
"b12" deki tex1'e yazsın , "c12" deki tex2'ye yazsın , "d12" deki tex3'e yazsın,

bu konuda yardımcı olursanız sevinirim.