hücredeki bir değeri başka bir hücreye eğer formülü ile yazdırma

T

turankr

Katılım
6 Nisan 2012
Mesajlar
24
Excel Vers. ve Dili
2010 Türkçe
-----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
 
YUSUF44

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,073
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
İ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: 
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
 
T

turankr

Katılım
6 Nisan 2012
Mesajlar
24
Excel Vers. ve Dili
2010 Türkçe
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.
 
A

Aydurmet

Katılım
25 Ocak 2018
Mesajlar
3
Excel Vers. ve Dili
Excel 2013, Türkçe
İ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.
 
I

ismailmustafa

Altın Üye
Katılım
10 Nisan 2006
Mesajlar
108
Excel Vers. ve Dili
2010
Altın Üyelik Bitiş Tarihi
28-04-2028
Hayırlı sabahlar şu formülü bir dener misiniz

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

şayet işinizi görürse sevinirim. Kolay gelsin.
 
Son düzenleme:
A

Aydurmet

Katılım
25 Ocak 2018
Mesajlar
3
Excel Vers. ve Dili
Excel 2013, Türkçe
ismailmustafa' Alıntı:
Hayırlı sabahlar şu formülü bir dener misiniz

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

şayet işinizi görürse sevinirim. Kolay gelsin.
Genişletmek için tıkla ...

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.
 
I

ismailmustafa

Altın Üye
Katılım
10 Nisan 2006
Mesajlar
108
Excel Vers. ve Dili
2010
Altın Üyelik Bitiş Tarihi
28-04-2028
=eğer(ve(e12<f12;e12<c8);e12;eğer(ve(e12>f12;e12<c8);f12;eğer(ve(e12<f12;e12>c8);c8;eğer(ve(e12>f12;e12>c8);c8;""))))
 
S

serbetci1

Katılım
8 Mayıs 2006
Mesajlar
1
Hücre değerine göre başka hücreye veri girişi

Üstadlar yardıma ihtiyacım var. Elimdeki tabloda E3 hücresinde formül sonucu çıkan değeri ("") ile boş yazdırtıyorum. Benim istediğim E3 sonucu boş ise E2 ye hiç bir değer (formül dahil) girilmesin. Yani tamamen boş hücre olsun. Yok eğer E3 değer var ise E2 ye o değeri yazsın. Araştırmadığım yer kalmadı. Bir türlü bulamadım. Tabi bu sadece bir hücre içindi. Aslında B3:N3 arası için lazım. Çıkan sonuca göre 2. satırlar ya tamamen boş olacak yada değer ne ise o olacak. Şimdiden teşekkür ediyorum.
 
S

serdar000123

Katılım
2 Haziran 2023
Mesajlar
2
Excel Vers. ve Dili
2016 TÜRKÇE
İyi günler,
arkadaşlar ben EXCEL de a sutununa bir parça kodu giriyorum. örneğin 1773 hemen yanında bu parçanın adı ve satışa konu birimi(adet metre kğ vs.) çıkmasını istiyorum. yardımcı olabilir misiniz.

A

B

C

1773

100 KORİGER BORU

METRE

3749

200/100 KORİGER REDİKSİYON

ADET

 
Korhan Ayhan

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,238
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Sorunuzdan anladığım kadarıyla aslında böyle bir malzeme listeniz var ve siz bu listeden isim ve birimin gelmesini istiyorsunuz. Aşağıdaki gibi DÜŞEYARA formülü ile sonuca gidebilirsiniz.

Bahsi geçen malzeme listenizin "MALZEME LİSTESİ" isimli sayfada olduğunu ve bu listede A sütununda malzeme kodu, B sütununda malzeme adı ve C sütununda ise birimi olduğunu varsaydım.

B2;
C++: 
=DÜŞEYARA($A2;'MALZEME LİSTESİ'!$A:$C;2;0)
C2;
C++: 
=DÜŞEYARA($A2;'MALZEME LİSTESİ'!$A:$C;3;0)
 
S

serdar000123

Katılım
2 Haziran 2023
Mesajlar
2
Excel Vers. ve Dili
2016 TÜRKÇE
Korhan Ayhan' Alıntı:
Sorunuzdan anladığım kadarıyla aslında böyle bir malzeme listeniz var ve siz bu listeden isim ve birimin gelmesini istiyorsunuz. Aşağıdaki gibi DÜŞEYARA formülü ile sonuca gidebilirsiniz.

Baahsi geçen malzeme listenizin "MALZEME LİSTESİ" isimli sayfada olduğunu ve bu listede A sütununda malzeme kodu, B sütununda malzeme adı ve C sütununda ise birimi olduğunu varsaydım.

B2;
C++: 
=DÜŞEYARA($A2;'MALZEME LİSTESİ'!$A:$C;2;0)
C2;
C++: 
=DÜŞEYARA($A2;'MALZEME LİSTESİ'!$A:$C;3;0)
Genişletmek için tıkla ...
Aynen öyle üstat. Çok teşekkür ederim.
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst