|
|
|  |
|
||||||
| 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.
 |
 |
|
|
Paylaş | Konu Araçları | Görünüm Modları |
19-12-2017, 00:28
|
#1 |
|
Altın Üye
Giriş: 15/02/2008
Şehir: İzmir
Mesaj: 218
Excel Vers. ve Dili:
Excel 2016 TR |
Seri Numarasindaki Harfi Almak
Merhabalar, Ekteki excel tablomda,
A Sütunundaki verilerin içinde 2017 sıra numarası ile BAŞLAMAYAN fatura numaralarının başındaki ilk harfi yazdırmak istiyorum, B1 den B10'a kadar yazdığım formül doğru çalışıyor Ancak B11 deki fatura numarası başında harf olmadığı için boş geçmesi lazım ama numara başında harf olmadığı için ilk rakam olan 8 rakamını yazıyor, formülümü düzeltip 8 rakamı yerine boş geçsin istiyorum, ancak formülü nasıl yazıcam çözemedim, ya da başka bir yolu var mıdır ? yardımcı olmanızı rica ederim, şimdiden çok teşekkürler. |
|
|
|
19-12-2017, 00:57
|
#2 |
|
Uzman
Giriş: 08/03/2011
Şehir: ANKARA / İSTANBUL
Mesaj: 10,250
Excel Vers. ve Dili:
Office 2013 TÜRKÇE |
Merhaba.
Kullandığınız formül konumuna bakmaksızın "2017" ibaresini arıyor. Yani aradığınız "2017" ibaresi metnin sonunda bile olsa ilgili hücrede varsa, kullandığınız formül istediğiniz sonucu vermez. Gördüğüm kadarıyla, yılı temsil eden "2017", " NO:" ibaresinden sonraki 4'üncü karakterden başlıyor. Bu kural standart ise aşağıdaki formülün istediğiniz sonucu vermesi gerekir. .
__________________
. ☾✭ İ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, dosyaupload.com gibi bir siteye yükleyip, belgeye erişim adresini verebilir. -- Özel mesaj ile soru sormayınız. / Geri bildirimde bulunulmayan cevaplarımı siliyorum. |
|
|
|
|
19-12-2017, 01:29
|
#3 | |
|
Altın Üye
Giriş: 15/02/2008
Şehir: İzmir
Mesaj: 218
Excel Vers. ve Dili:
Excel 2016 TR |
Alıntı:
|
|
|
|
|
|
19-12-2017, 01:47
|
#4 | |
|
Uzman
Giriş: 08/03/2011
Şehir: ANKARA / İSTANBUL
Mesaj: 10,250
Excel Vers. ve Dili:
Office 2013 TÜRKÇE |
Alıntı:
Kolay gelsin. .
__________________
. ☾✭ İ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, dosyaupload.com gibi bir siteye yükleyip, belgeye erişim adresini verebilir. -- Özel mesaj ile soru sormayınız. / Geri bildirimde bulunulmayan cevaplarımı siliyorum. |
|
|
|
|
|
19-12-2017, 22:25
|
#5 |
|
Altın Üye
Giriş: 29/07/2012
Şehir: Antakya
Mesaj: 1,238
Excel Vers. ve Dili:
2010 - Türkçe 64 Bit |
Merhaba Sayın Ömer Hocam,
Aynı işlemi makro ile yapar mısınız, lütfen? Elimde benzer bir problem var da. Saygılarımla |
|
|
|
|
19-12-2017, 23:34
|
#6 | |
|
Uzman
Giriş: 08/03/2011
Şehir: ANKARA / İSTANBUL
Mesaj: 10,250
Excel Vers. ve Dili:
Office 2013 TÜRKÇE |
Alıntı:
Aşağıdaki kod da aynı işi görür. Kırmızı renklendirdiğim ilk veri satırı, kriter yıl, bakılacak sütun adı, işlem sonucunun yazılacağı sütun adı, yıl verisinden önceki standart anahtar kelimeyi ihtiyaca göre değiştirirsiniz. . Sub YILI_FARKLI_VE_SAYI_OLMAYAN_SERI_NOLARI()
yil = "2017"
ilksat = 1
kaynaksut = "A"
hedefsut = "B"
anahtar = " NO:"
sonsat = Cells(Rows.Count, kaynaksut).End(3).Row
Range(Cells(ilksat, hedefsut), Cells(sonsat, hedefsut)).ClearContents
For sat = 4 To sonsat
If Cells(sat, kaynaksut) = "" Or _
Len(Cells(sat, kaynaksut)) = Len(Replace(Cells(sat, kaynaksut), anahtar, "")) Then GoTo 10
nonerede = WorksheetFunction.Search(anahtar, Cells(sat, kaynaksut))
If Mid(Cells(sat, kaynaksut), nonerede + 7, 4) = yil Then GoTo 10
If IsNumeric(Mid(Cells(sat, kaynaksut), nonerede + 4, 1)) = True Then
GoTo 10
Else
Cells(sat, hedefsut) = Mid(Cells(sat, kaynaksut), nonerede + 4, 1)
adet = adet + 1
End If
10
Next
MsgBox yil & " yılına ait olmayan faturaların" & vbLf & _
"Seri Numaralarının ilk harfleri listelendi." & vbLf & vbLf & _
"Bulunan kayıt sayısı: " & adet, vbInformation, "..::.. Ömer BARAN ..::.."
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, dosyaupload.com gibi bir siteye yükleyip, belgeye erişim adresini verebilir. -- Özel mesaj ile soru sormayınız. / Geri bildirimde bulunulmayan cevaplarımı siliyorum. |
|
|
|
|
|
19-12-2017, 23:53
|
#7 |
|
Altın Üye
Giriş: 29/07/2012
Şehir: Antakya
Mesaj: 1,238
Excel Vers. ve Dili:
2010 - Türkçe 64 Bit |
Çok teşekkür ederim Sayın Ömer Hocam,
Birebir aynı olması şart değil. Sadece sıralı satırlardan parçaal nasıl yapılıyor ona bakmak istiyordum. İlginize çok teşekkür ederim. İyi geceler Saygılarımla |
|
|
|
|
20-12-2017, 00:03
|
#8 |
|
Uzman
Giriş: 08/03/2011
Şehir: ANKARA / İSTANBUL
Mesaj: 10,250
Excel Vers. ve Dili:
Office 2013 TÜRKÇE |
Dikkat edeceğiniz gibi, kod'da muhtemel hataları (istenilen kriterlere uymayan veri içeren) öngörüp,
o durumları işlem öncesinde tespit etmek ve hatalı satırlar için bir sonraki satıra geçme işlemi, istenilen kriterlere uyan satıra gelince ise, basit "MID" yani PARÇAAL işlevini devreye sokmak gerekiyor. Tabi MID işlevi için de veri alma başlangıç noktası ve alınacak karakter sayısının tespiti gerekiyor. .
__________________
. ☾✭ İ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, dosyaupload.com gibi bir siteye yükleyip, belgeye erişim adresini verebilir. -- Özel mesaj ile soru sormayınız. / Geri bildirimde bulunulmayan cevaplarımı siliyorum. |
|
|
|
|
20-12-2017, 01:47
|
#9 |
|
Altın Üye
Giriş: 29/07/2012
Şehir: Antakya
Mesaj: 1,238
Excel Vers. ve Dili:
2010 - Türkçe 64 Bit |
Sayın Ömer Hocam,
Çok haklısınız, bugün bu konuda çok güzel örnekler gördüm. Umarım kısa zamanda kavrarım. Saygılarımla |
|
|
|
Düzenli Mod
