Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Fonksiyonlar
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Fonksiyonlar Bir fonksiyonun, nasıl işlediğini veya aradığınız bir işleme uygun olup olmadığını bu başlık altında sorabilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 30-11-2016, 19:24   #21
turankr
 
turankr kullanıcısının avatarı
 
Giriş: 06/04/2012
Şehir: Adana
Mesaj: 23
Excel Vers. ve Dili:
2010 Türkçe
Varsayılan hücredeki bir değeri başka bir hücreye eğer formülü ile yazdırma

-----Son soru Hocam.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 1 To Cells(Rows.Count, "M").End(3).Row
If Cells(i, "F") <> "" And Cells(i, "M") <> "" And Cells(i, "M") = Cells(i, "F") Then
Cells(i, "G") = "ÇIKAN"
End If
Next
End Sub

---Bu sizin bana yazdığınız makro. Küçük bir değişiklikle tam oldu. Ama aşağıdaki makro ile nasıl birlikte çalıştırabilirim? Her iki makro da KASA adlı sayfaya kumanda etmeleri gerekiyor.
-----------------------------------------------------------------------------
---Bu da aynı sayfada önceden çalışan makro
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect(Target, [G:G]) Is Nothing Then Exit Sub
On Error GoTo son
ActiveSheet.Unprotect
Cells.Locked = False
If Target.Value = "MASRAF" Then
Range("I:I").Locked = True
ActiveSheet.Protect
End If
If Target.Value = "ÇIKAN" Then
Range("I:I,H:H").Locked = True
ActiveSheet.Protect
End If
If Target.Value = "SATIŞ" Then
Range("I:I,H:H").Locked = True
ActiveSheet.Protect
End If
If Target.Value = "BORÇ DEKONTU" Then
Range("I:I,H:H").Locked = True
ActiveSheet.Protect
End If
If Target.Value = "GİREN" Then
Range("J:J,H:H").Locked = True
ActiveSheet.Protect
End If
If Target.Value = "ALIŞ" Then
Range("J:J,H:H").Locked = True
ActiveSheet.Protect
End If
If Target.Value = "ALACAK DEKONTU" Then
Range("J:J,H:H").Locked = True
ActiveSheet.Protect
End If
If Target.Value = "KASA DEVRİ" Then
Range("J:J,H:H").Locked = True
ActiveSheet.Protect
son:
End If
End Sub
turankr Çevrimdışı   Alıntı Yaparak Cevapla
Eski 01-12-2016, 09:26   #22
YUSUF44
Destek Ekibi
 
YUSUF44 kullanıcısının avatarı
 
Giriş: 04/01/2006
Şehir: Manisa, Kula
Mesaj: 6,691
Excel Vers. ve Dili:
İş : Ofis 2016 - Türkçe Ev: Ofis 2016 - Türkçe
Varsayılan

İlk kod sayfadaki herhangi bir hücreyi seçtiğinizde F ve M sütunlarını karşılaştırıp G sütununa ÇIKAN yazdırıyor. Dosyada sürekli olarak böyle bir makronun çalışması bana mantıklı gelmiyor.

İlk kodu iptal edip ikinci kod yerine de aşağıdaki kodu deneyin. Kod F ve M sütunlarına veri girildiğinde aynıysalar G sütununa ÇIKAN yazar ve koruma/kilitleme işlemini yapar:
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect(Target, [G:G]) Is Nothing Then GoTo 10
On Error GoTo son
ActiveSheet.Unprotect
Cells.Locked = False
If Target.Value = "MASRAF" Then
Range("I:I").Locked = True
ActiveSheet.Protect
End If
If Target.Value = "ÇIKAN" Then
Range("I:I,H:H").Locked = True
ActiveSheet.Protect
End If
If Target.Value = "SATIŞ" Then
Range("I:I,H:H").Locked = True
ActiveSheet.Protect
End If
If Target.Value = "BORÇ DEKONTU" Then
Range("I:I,H:H").Locked = True
ActiveSheet.Protect
End If
If Target.Value = "GİREN" Then
Range("J:J,H:H").Locked = True
ActiveSheet.Protect
End If
If Target.Value = "ALIŞ" Then
Range("J:J,H:H").Locked = True
ActiveSheet.Protect
End If
If Target.Value = "ALACAK DEKONTU" Then
Range("J:J,H:H").Locked = True
ActiveSheet.Protect
End If
If Target.Value = "KASA DEVRİ" Then
Range("J:J,H:H").Locked = True
ActiveSheet.Protect
son:
End If
10:
If Intersect(Target, [F:F]) Is Nothing Then GoTo 20
If Target <> "" And Target = Cells(Target.Row, "M") Then
    Cells(Target.Row, "G") = "ÇIKAN"
End If

20:
If Intersect(Target, [M:M]) Is Nothing Then Exit Sub
If Target <> "" And Target = Cells(Target.Row, "F") Then
    Cells(Target.Row, "G") = "ÇIKAN"
End If


End Sub
__________________


Sorularınızı örnek dosyayla desteklemeniz çözüme ulaşmanızı kolaylaştırır.

Altın Üye olmanızı öneririm. Altın Üye değilseniz dosyanızı dosya yükleme sitelerinden birine yükleyip linkini paylaşabilirsiniz.
YUSUF44 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 07-12-2016, 09:24   #23
turankr
 
turankr kullanıcısının avatarı
 
Giriş: 06/04/2012
Şehir: Adana
Mesaj: 23
Excel Vers. ve Dili:
2010 Türkçe
Varsayılan

Sevgili YUSUF44 Hocam,
Gerçekten çok memnun kaldım.
Sizi yordum ama benim işimi çok çok kolaylaştırıcı oldu bu makrolar.
Yardımcı arkadaş artık yanlış sütuna bilgi girip, aklımı alamayacak.
Allah cc.'da sizin işinizi kolaylaştırsın.
turankr Çevrimdışı   Alıntı Yaparak Cevapla
Eski 07-02-2018, 08:21   #24
Aydurmet
 
Giriş: 25/01/2018
Şehir: Isparta
Mesaj: 3
Excel Vers. ve Dili:
Excel 2013, Türkçe
Varsayılan

İyi günler.
Bir formül konusunda yardımınıza ihtiyacım var.
G12 HÜCRESİNE;
*E12 hücresindeki sayı, eğer F12'deki sayıdan ve aynı zamanda C8'deki sayıdan küçükse E12'deki sayıyı yazsın.
*E12'deki sayı F12'den büyük ama C8'den küçük ise F12'deki sayıyı yazsın,
*E12'deki sayı F12'den küçük ama C8'den büyük ise bu defa da C8'deki sayıyı yazsın.
Aydurmet Çevrimdışı   Alıntı Yaparak Cevapla
Eski 08-02-2018, 22:59   #25
ismailmustafa
Altın Üye
 
Giriş: 10/04/2006
Şehir: Konya
Mesaj: 40
Excel Vers. ve Dili:
2003
Varsayılan

Hayırlı sabahlar şu formülü bir dener misiniz

=EĞER(VE(E12<C8;E12<F12);E12;EĞER(VE(F12<E12;F12<C 8);F12;EĞER(VE(C8<E12;C8<F12);C8;"")))
veya
=EĞER(VE(E12<F12;E12<C8);E12;EĞER(VE(E12>F12;E12<C 8);F12;EĞER(VE(E12<F12;E12>C8);C8;"")))

şayet işinizi görürse sevinirim. Kolay gelsin.

Bu mesaj en son " 09-02-2018 " tarihinde saat 14:51 itibariyle ismailmustafa tarafından düzenlenmiştir....
ismailmustafa Çevrimdışı   Alıntı Yaparak Cevapla
Eski 19-02-2018, 08:06   #26
Aydurmet
 
Giriş: 25/01/2018
Şehir: Isparta
Mesaj: 3
Excel Vers. ve Dili:
Excel 2013, Türkçe
Varsayılan

Alıntı:
ismailmustafa tarafından gönderildi Mesajı Görüntüle
Hayırlı sabahlar şu formülü bir dener misiniz

=EĞER(VE(E12<C8;E12<F12);E12;EĞER(VE(F12<E12;F12<C 8);F12;EĞER(VE(C8<E12;C8<F12);C8;"")))
veya
=EĞER(VE(E12<F12;E12<C8);E12;EĞER(VE(E12>F12;E12<C 8);F12;EĞER(VE(E12<F12;E12>C8);C8;"")))

şayet işinizi görürse sevinirim. Kolay gelsin.

Cevap için teşekkür ederim. Ancak, E12'deki tutar C8'deki tutardan büyük olunca sonuç göstermiyor, formülün sonuna bir komut daha girmek gerekiyor. Ama işimi gördü, tekrar tşk ederim.
Aydurmet Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 11:31


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım -- Beylikdüzü mali müşavir - Beylikdüzü mali müşavir - Lingerie - Dyeing Machine - Karton Bardak- Karton Bardak- Çorlu Dil Konuşma Terapisti- Çorlu Dil Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Özel Eğitim- Site Yönetimi- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Çorlu- Çorlu Araç Takip- Çorlu Su Arıtma- Gebze Emlak- Rampa- Rotary- Çorlu İnternet Sitesi- Çorlu Sürücü Kursu- Çorlu Sürücü Kursu- Şişli Avukat- Edirne Serbest Muhasebeci- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta- Kağıt Bardak- Kağıt Bardak- Kaplan Tekstil- Çorlu Perde- Çorlu Perde- Çorlu Havuz- Çorlu Havuz- Makina- Danışmazlar- Çorlu Perde Yıkama- Çorlu Perde Yıkama- Okul Danışmanlık- Çorlu Ayakkabı- İzmit Sigorta- ADR'li taşıma kabı imalatı- Mekanik Tesisat- Çorlu Grafik Tasarım-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden