- Welcome to Türkçe Excel Sitesi - Excel Vba Forumu.
Türkiye'nin Excel Sitesi ve Forumu
Son İletiler
#11
Excel Soru-Cevap / Ynt: kelime bulma ve boyamak h...
Son İleti Gönderen Bülent - May 15, 2022, 12:26 ÖSMerhaba,
Aşağıdaki kodlar ile dener misiniz?
Aşağıdaki kodlar ile dener misiniz?
Kod Seç
Sub ExcelSitesi()
'https://excelsitesi.com/forum/index.php?topic=46.msg64;topicseen#msg64
Dim aranan, bulunan As Range
Dim konum
For Each aranan In Range("A1:A65530")
If aranan.Value = "" Then Exit For
For Each bulunan In Range("B1:B65530")
If bulunan.Value = "" Then Exit For
konum = InStr(1, bulunan, aranan)
If konum > 0 Then bulunan.Characters(konum, Len(aranan)).Font.Color = vbRed
Next bulunan
Next aranan
MsgBox "Bitti", vbInformation, "ExcelSitesi.Com"
End Sub
#12
Excel Soru-Cevap / kelime bulma ve boyamak hakk
Son İleti Gönderen aaslan - May 08, 2022, 04:04 ÖSMerhaba,
Excelin a1 hücresinde ali, a2 hücresinde veli yazıyor olsun. B1 hücresinde "ali ve veli geldi", b2 hücresinde "ahmet gelmedi yazsın". Amacım a kolonunda yer alan kelimeler b kolonda yer alıyorsa sadece geçen kelimleri boyamak istiyorum. Hücre boyamak istemiyorum. Bunu yapan macro varsa da isimi görür.
Excelin a1 hücresinde ali, a2 hücresinde veli yazıyor olsun. B1 hücresinde "ali ve veli geldi", b2 hücresinde "ahmet gelmedi yazsın". Amacım a kolonunda yer alan kelimeler b kolonda yer alıyorsa sadece geçen kelimleri boyamak istiyorum. Hücre boyamak istemiyorum. Bunu yapan macro varsa da isimi görür.
#13
Excel - Vba - Vbs Örnek Kodları / Excelce Script Center mdb Veri...
Son İleti Gönderen Bülent - Mar 25, 2022, 08:14 ÖSExcel veya Visual Basic'te kullanma ve faydalanma imkanı bulduğumuz scriptlerin hazır veritabanı ile rahat ve hızlı kullanımını sağlamak üzere tasarlanan Excel eklentisidir.
Eklenti ile, aradığınız scriptleri başlığına veya içeriğine göre kolayca bulabilir ve programlarınızda kullanabilirsiniz.
Eklenti ile, aradığınız scriptleri başlığına veya içeriğine göre kolayca bulabilir ve programlarınızda kullanabilirsiniz.
#14
ExcelSitesi Programları / Ynt: Envanter ve Kişi Zimmet T...
Son İleti Gönderen Bülent - Oca 22, 2022, 11:14 ÖÖMerhaba Ufuk Bey,
Access Database Engine uygulamasının 2016 versiyonu yavaş çalışmaktadır.
Onu kaldırıp 2010 kurabilirseniz sorun kalmayacaktır.
Link: https://www.microsoft.com/en-us/download/details.aspx?id=13255
Geribildirim için teşekkürler.
Access Database Engine uygulamasının 2016 versiyonu yavaş çalışmaktadır.
Onu kaldırıp 2010 kurabilirseniz sorun kalmayacaktır.
Link: https://www.microsoft.com/en-us/download/details.aspx?id=13255
Geribildirim için teşekkürler.
#15
ExcelSitesi Programları / Otel Konsiyerj Programı Hotel ...
Son İleti Gönderen Bülent - Oca 22, 2022, 10:49 ÖÖHotel Concierge Programı
Hotel misafirlerinin transferleri, havalimanından alınması, havalimanına bırakılması, gezi, tur organizasyonları ile restoran, kuaför, hamam, müze vb. rezervasyonlarının takip edilebileceği, işlem yapan kullanıcı, tur ve transfer raporları ile müşteri gönderilen işletmeye göre raporların alınabileceği, müşterilerden gelen geribildirimlere ziyaret edilen işletmelerin anketlerinin kaydedilip raporlanabileceği bir programdır.
Programda ayrıca;
- Kullanıcıların kendi aralarında mesajlaşmasına ve genele hitap eden hatırlatma notları ekleme özelliği,
- Kullanıcı bazlı (kayıt ekleme, değiştirme, silme ve raporlama) yetkilendirme özelliği,
- Veritabanını yedekleme ve yedekten geri dönme özelliği,
- KVKK yasası sebebiyle belli süre öncesi kayıtların anonim hale getirme
gibi işlevler mümkündür.
Demo programın indirilebileceği link:
https://drive.google.com/drive/folders/1jxWN00PrLt-8rYdETMXYAWYG9R7jGFR2?usp=sharing
Program hakkında daha fazla bilgi almak için mail ile iletişime geçebilirsiniz.
Hotel misafirlerinin transferleri, havalimanından alınması, havalimanına bırakılması, gezi, tur organizasyonları ile restoran, kuaför, hamam, müze vb. rezervasyonlarının takip edilebileceği, işlem yapan kullanıcı, tur ve transfer raporları ile müşteri gönderilen işletmeye göre raporların alınabileceği, müşterilerden gelen geribildirimlere ziyaret edilen işletmelerin anketlerinin kaydedilip raporlanabileceği bir programdır.
Programda ayrıca;
- Kullanıcıların kendi aralarında mesajlaşmasına ve genele hitap eden hatırlatma notları ekleme özelliği,
- Kullanıcı bazlı (kayıt ekleme, değiştirme, silme ve raporlama) yetkilendirme özelliği,
- Veritabanını yedekleme ve yedekten geri dönme özelliği,
- KVKK yasası sebebiyle belli süre öncesi kayıtların anonim hale getirme
gibi işlevler mümkündür.
Demo programın indirilebileceği link:
https://drive.google.com/drive/folders/1jxWN00PrLt-8rYdETMXYAWYG9R7jGFR2?usp=sharing
Program hakkında daha fazla bilgi almak için mail ile iletişime geçebilirsiniz.
#16
ExcelSitesi Programları / Ynt: Envanter ve Kişi Zimmet T...
Son İleti Gönderen kilbuga - Ara 11, 2021, 11:09 ÖÖMerhaba bülent bey , daha önce mail olarak iletişim kurmuştuk demoyu denerken donma sorunuyla karşılaşıyorum neden kaynaklı olabilir acaba ? yardımınız için teşekkürler
#17
Excel Soru-Cevap / webde seçim yada tıklama sorun...
Son İleti Gönderen fkalelinet - Ksm 25, 2021, 04:21 ÖSdom..
<td tabindex="0" class="x-grid3-col x-grid3-cell x-grid3-td-rumuz " style="width: 98px;"><div class="x-grid3-cell-inner x-grid3-col-rumuz" unselectable="on">TR-A</div></td>
daha uzunu
232041
selenium ile aşağıdaki kod ile tıkladığım yere ie de tıklayamıyorum.
not click or select. why please?
'.FindElementByXPath("//div[text()='TR-A']").Click
' Sleep 1000
gibi bisürü şey denedim olmadı.
Do While i < objCollection.Length
If Left(objCollection(i).innerText, 4) = "tr-a" Then
'FnWait (2)
Sleep 1000
objCollection(i).Click
Exit Do
'If InStr(IE.Document.body.innerText, "tr-a") = 0 Then
'SendKeys "{ENTER}", True
'Sleep 5000
'SendKeys "{numlock}", True
eyt olarak yaşlandık artık. bilgi işlem geldi sildi selenium falan. kaldım sadece vba ile ie'ye...
<td tabindex="0" class="x-grid3-col x-grid3-cell x-grid3-td-rumuz " style="width: 98px;"><div class="x-grid3-cell-inner x-grid3-col-rumuz" unselectable="on">TR-A</div></td>
daha uzunu
232041
selenium ile aşağıdaki kod ile tıkladığım yere ie de tıklayamıyorum.
not click or select. why please?
'.FindElementByXPath("//div[text()='TR-A']").Click
' Sleep 1000
gibi bisürü şey denedim olmadı.
Do While i < objCollection.Length
If Left(objCollection(i).innerText, 4) = "tr-a" Then
'FnWait (2)
Sleep 1000
objCollection(i).Click
Exit Do
'If InStr(IE.Document.body.innerText, "tr-a") = 0 Then
'SendKeys "{ENTER}", True
'Sleep 5000
'SendKeys "{numlock}", True
eyt olarak yaşlandık artık. bilgi işlem geldi sildi selenium falan. kaldım sadece vba ile ie'ye...
#18
Excel Soru-Cevap / Ynt: Çoklu Yatay Tabloyu Dikey...
Son İleti Gönderen faris_aga - Ksm 13, 2021, 09:21 ÖÖAlıntı yapılan: faris_aga - Ksm 12, 2021, 02:49 ÖSHerkese selamlar.
Excel 2019 kullanıyorum. 4 satırdan oluşan ve tek sütunda alt alta sıralanmış olan verilerimi yatay bir hale getirmek istiyorum. Aşağıdaki örnek gibi...
Bu arada; 9 adet çalışma sayfam var ve her birinde yaklaşık 9000 satır bulunuyor.
Yardımcı olursanız çok mutlu olurum.
Orjinal hali :Kod SeçA SÜTUNU
------------------------
13:27
Online
Price: 0,014 USD
Price incr.: 0,012 USD
14:56
Online
Price: 0,15 USD
Price incr.: 0,12 USD
19:41
Offline
Price: 1,49 USD
Price incr.: 1,1 USD
20:01
Online
Price: 0,01 USD
Price incr.: 0,004 USD
Olması gereken hali :Kod SeçA SÜTUNU | B SÜTUNU | C SÜTUNU | D SÜTUNU
---------------------------------------------------------------
13:27 | Online | Price: 0,014 USD | Price incr.: 0,012 USD
14:56 | Online | Price: 0,15 USD | Price incr.: 0,12 USD
19:41 | Online | Price: 1,49 USD | Price incr.: 1,1 USD
20:01 | Online | Price: 0,01 USD | Price incr.: 0,004 USD
İlgili sorun aşağıdaki kod yardımı ile çözülmüştür.
Kod Seç
Sub transpose()
Set oku = Sheets("sayfa1")
Set yaz = Sheets("sayfa2")
yaz.Range("A2:D20000").ClearContents
ss = oku.Range("A" & Rows.Count).End(xlUp).Row
y = Range("A1:A" & ss)
sat = 2: süt = 1
For i = 1 To UBound(y)
If süt = 5 Then süt = 1: sat = sat + 1
yaz.Cells(sat, süt) = y(i, 1)
süt = süt + 1
Next i
End Sub
#19
Excel Soru-Cevap / Çoklu Yatay Tabloyu Dikey Hale...
Son İleti Gönderen faris_aga - Ksm 12, 2021, 02:49 ÖSHerkese selamlar.
Excel 2019 kullanıyorum. 4 satırdan oluşan ve tek sütunda alt alta sıralanmış olan verilerimi yatay bir hale getirmek istiyorum. Aşağıdaki örnek gibi...
Bu arada; 9 adet çalışma sayfam var ve her birinde yaklaşık 9000 satır bulunuyor.
Yardımcı olursanız çok mutlu olurum.
Orjinal hali :
Olması gereken hali :
Excel 2019 kullanıyorum. 4 satırdan oluşan ve tek sütunda alt alta sıralanmış olan verilerimi yatay bir hale getirmek istiyorum. Aşağıdaki örnek gibi...
Bu arada; 9 adet çalışma sayfam var ve her birinde yaklaşık 9000 satır bulunuyor.
Yardımcı olursanız çok mutlu olurum.
Orjinal hali :
Kod Seç
A SÜTUNU
------------------------
13:27
Online
Price: 0,014 USD
Price incr.: 0,012 USD
14:56
Online
Price: 0,15 USD
Price incr.: 0,12 USD
19:41
Offline
Price: 1,49 USD
Price incr.: 1,1 USD
20:01
Online
Price: 0,01 USD
Price incr.: 0,004 USD
Olması gereken hali :
Kod Seç
A SÜTUNU | B SÜTUNU | C SÜTUNU | D SÜTUNU
---------------------------------------------------------------
13:27 | Online | Price: 0,014 USD | Price incr.: 0,012 USD
14:56 | Online | Price: 0,15 USD | Price incr.: 0,12 USD
19:41 | Online | Price: 1,49 USD | Price incr.: 1,1 USD
20:01 | Online | Price: 0,01 USD | Price incr.: 0,004 USD
#20
Excel Sitesi'ne Hoş Geldiniz / Range seçimi hakkında
Son İleti Gönderen euyanuk - Tem 05, 2021, 03:48 ÖSMerhaba,
Range içeren bir formül yazarken, örneğin =sum(A1:A8) şeklinde, klavyede range başlangıcı olan hücreye ok tuşları ile ulaşır ve noktaya "." basarak range seçimi yapabiliyordum. Ancak şimdi iki nokta üst üste ':' ile yapabiliyorum. Range seçimi yaparken ":" yerine "."'yı nasıl aktive edebilirim? klavye ayarları, regional ayarlar vs. değiştirdim ancak düzeltemedim. Yardımcı olursanız sevinirim.
Erdem
Range içeren bir formül yazarken, örneğin =sum(A1:A8) şeklinde, klavyede range başlangıcı olan hücreye ok tuşları ile ulaşır ve noktaya "." basarak range seçimi yapabiliyordum. Ancak şimdi iki nokta üst üste ':' ile yapabiliyorum. Range seçimi yaparken ":" yerine "."'yı nasıl aktive edebilirim? klavye ayarları, regional ayarlar vs. değiştirdim ancak düzeltemedim. Yardımcı olursanız sevinirim.
Erdem