Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Diğer Excel Soruları
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Diğer Excel Soruları Yukarıdaki başlıklara uymayan Excel sorularınızı bu bölüme gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 10-08-2016, 17:40   #1
resolve45
 
Giriş: 06/11/2008
Şehir: izmir
Mesaj: 61
Excel Vers. ve Dili:
Microsoft Excel 2007 Türkçe
Post Içeren formül

İyi çalışmalar, Arakadaşlar satırların içeriğinde sadece u veya sadece k veya ikisi "u-k" geçiyorsa HT yazsın eğer geçmiyorsa VEYA 1 ve birden fazla hücre boş isede fu ve k haricinde başka harf rakam var ise Boş Yazsın Örnek aşağıdaki gibi


A B C D E Formül Sonucu Sonuç olarak

1) u k u k k =formül HT Yazması lazım
2) k k k k =formül Boş Kalacak
3) u k u k d =formül Boş kalacak
4) u u u u u =formül Ht yazması Lazım
5) u k u k k =formül HT yazması lazım
resolve45 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 10-08-2016, 18:02   #2
sakman26
Altın Üye
 
Giriş: 31/01/2012
Şehir: Bursa
Mesaj: 2,440
Excel Vers. ve Dili:
Excel 2010 , Türkçe
Varsayılan

selam,
"satırların içeriğinde" ifadesinden
kaç sütun var.
bir sütunda kaç satır var.
Bu "HT" nereye yazılacak.

Sonradan ilave Not :
mesajınıdaki örnek olarak ABCDE kolonlarına 5 satır olarak değer yazılmış ve F kolonunda da sonucu hesaplanmış örnek ektedir.

link : http://s6.dosya.tc/server7/ukl5wb/oRnek11.xlsx.html
kullanılan formül :
F2 hücresi için

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
=EĞER(BOŞLUKSAY(A2:E2)>0;"";EĞER(YERİNEKOY(YERİNEKOY(A2&B2&C2&D2&E2;"u";"");"k";"")<>"";"";"HT"))
Örnekten farklı ise , en güzeli örnek dosya ekleyin , değerlendirme yapılacak alanı da belirtin derim.
__________________
Geri dönüşü olmayan mesajlarımı siliyorum.

Bu mesaj en son " 10-08-2016 " tarihinde saat 20:21 itibariyle sakman26 tarafından düzenlenmiştir....
sakman26 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 10-08-2016, 21:26   #3
bzace
 
bzace kullanıcısının avatarı
 
Giriş: 23/09/2013
Şehir: İstanbul
Mesaj: 1,338
Excel Vers. ve Dili:
Excel 2007 İngilizce - Excel 2010 Türkçe - Excel 2013 Türkçe -
Varsayılan

Merhaba,
Alıntı:
Arakadaşlar satırların içeriğinde sadece u veya sadece k veya ikisi "u-k" geçiyorsa HT yazsın
Bu kısımda bunu demişsiniz ama
Alıntı:
2) k k k k =formül Boş Kalacak
bu kısımda da boş kalsın demişsiniz ?
Bu nasıl olacak ?

Sayın Sakman26'nın formülüne alternatif;
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
=EĞER(BOŞLUKSAY(A1:E1)>0;"";
  METNEÇEVİR(MAK(EĞER(ESAYIYSA(MBUL(A1:E1;
    {"u"\"k"};1));1;));"""HT"";;"" """))
Formül dizi formülüdür.CTRL+SHIT+ENTER ile tamamlayınız.
Saygılar,
Şeşen
__________________
BEDAVA PEYNİR sadece FARE KAPANINDA var!
bzace Çevrimdışı   Alıntı Yaparak Cevapla
Eski 12-08-2016, 10:39   #4
resolve45
 
Giriş: 06/11/2008
Şehir: izmir
Mesaj: 61
Excel Vers. ve Dili:
Microsoft Excel 2007 Türkçe
Varsayılan

Teşekkür ederim arkadaşlar çok sağolun iki formülde çalışıyor elinize sağlık
resolve45 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 19-08-2016, 13:56   #5
coco_616
 
Giriş: 03/08/2016
Şehir: İstanbul
Mesaj: 1
Excel Vers. ve Dili:
vba
Varsayılan hücre karakterlerini makroyla gösterme

meraba arkadaşlar
şimdi hücre içindeki karakterlerin bulunup eşleştirilmesi ile ilgili bi makro var şöyleki ;

Sub RoundedRectangle1_Click()
Dim i As Long
On Error Resume Next
Application.ScreenUpdating = False
For i = 2 To Cells(Rows.Count, "D").End(3).Row
If Cells(i, "D") Like "*SU ÜRÜN MÜDÜR YRD*" Then Cells(i, "J") = 1
Next i
Application.ScreenUpdating = True
MsgBox "İşlem Tamam..."
End Sub

burada örneğin SU ÜRÜN MÜDÜR YRD içeen hücreyi gördüğünde onun karşısına 1 yazıyor ama bunun gibi 203 tane veri var , her karakterde makroyu değiştirmek istemiyorum bunun için kısa bi yol varmıdır acaba.
coco_616 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 19-08-2016, 14:10   #6
Ömer BARAN
Uzman
 
Giriş: 08/03/2011
Şehir: ANKARA / İSTANBUL
Mesaj: 9,672
Excel Vers. ve Dili:
Office 2013 TÜRKÇE
Varsayılan

Merhaba, foruma hoşgeldiniz.

Örnek belge olmayınca açıklığa kavuşması gereken hususların olması da kaçınılmaz.

-- Eşleşme olduğunda yine J sütununa mı 1 yazılacak acaba?
-- SU ÜRÜN MÜ .... gibi verilerin sayfadaki konumu nedir, hangi sütunda, hangi satırdan itibaren listelenmiş halde?
-- Daha önce J sütununda bir önceki arama sonucunda 1 yazılmış değer varsa, ikinci veri için arama yapıldığında
bu da D sütunundaki hücrede varsa, 1 sayısı 1+1 = 2 'mi olacak yoksa hep 1 mi olacak?
gibi belirsizlikler var.

Bence sorunuzu, cevabımın altındaki İMZA bölümünde yer alan açıklamalara göre hazırlanmış bir örnek belge ile desteklemelisiniz.
.
__________________
.
☾✭ İnadına TÜRKÇE ✭☽

-- Sorunuzu, gerçek belgenizle aynı yapıda ve olması gereken sonuçların elle yazıldığı örnek belge ile destekleyiniz.
-- ALTIN ÜYELİK öneriyorum. / FORUM KURALLARInı mutlaka okuyunuz.
-- ALTIN ÜYE olmayanlar, örnek belgeyi dosya.tc, dosya.co gibi bir siteye yükleyip, belgeye erişim adresini verebilir.
-- Özel mesaj ile soru sormayınız. / Geri bildirimde bulunulmayan cevaplarımı siliyorum.

Bu mesaj en son " 19-08-2016 " tarihinde saat 14:18 itibariyle Ömer BARAN tarafından düzenlenmiştir....
Ömer BARAN Çevrimdışı   Alıntı Yaparak Cevapla
Eski 19-08-2016, 16:21   #7
Ömer BARAN
Uzman
 
Giriş: 08/03/2011
Şehir: ANKARA / İSTANBUL
Mesaj: 9,672
Excel Vers. ve Dili:
Office 2013 TÜRKÇE
Varsayılan

Merhaba.

Anlaşılan örnek belge yüklemeyeceksiniz.

-- Arama yapılacak alanın D2 hücresinden itibaren D sütununda olduğu,
-- Aranacak verilerin E2 hücresinden itibaren E sütununda olduğu,
-- Arama sonuçlarından bir tanesinin sonucu olumlu ise J sütununa 1 yazılmak istendiği,
varsayımlarına göre aşağıdaki kod'u kullanabilirsiniz.
.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub RoundedRectangle1_Click()
Set WF = Application.WorksheetFunction: Application.ScreenUpdating = False: Range("J:J").ClearContents
    For dsat = 2 To Cells(Rows.Count, "D").End(3).Row
        If Cells(dsat, "J") = "" And Cells(dsat, "D") <> "" Then
        For aranan = 2 To Cells(Rows.Count, "E").End(3).Row
            If WF.CountIf(Cells(dsat, "D"), "*" & Cells(aranan, "E") & "*") > 0 Then Cells(dsat, "J") = 1
        Next: End If: Next
Application.ScreenUpdating = True
MsgBox "İşlem Tamam..."
End Sub
__________________
.
☾✭ İnadına TÜRKÇE ✭☽

-- Sorunuzu, gerçek belgenizle aynı yapıda ve olması gereken sonuçların elle yazıldığı örnek belge ile destekleyiniz.
-- ALTIN ÜYELİK öneriyorum. / FORUM KURALLARInı mutlaka okuyunuz.
-- ALTIN ÜYE olmayanlar, örnek belgeyi dosya.tc, dosya.co gibi bir siteye yükleyip, belgeye erişim adresini verebilir.
-- Özel mesaj ile soru sormayınız. / Geri bildirimde bulunulmayan cevaplarımı siliyorum.
Ömer BARAN Ç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:58


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-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden