-
Merhaba Ziyaretçi,
Microsoft 365 Uygulamaları ile ilgili yeni haberler, dikkat çekici konular, ilgi ile takip edeceğiniz yazılar için.
Abone Olun -
ESTE - Microsoft Office Eğitimleri
Yeni yıl Microsoft Office Eğitim planlarınız için bütçenizi oluşturmadan önce ESTE eğitim kalitesi ile tanışın. 🙌
Kullanıcıların ihtiyacı olan yazılı materyal, dosya ve video kaynağı desteğimiz ile tüm ofis çalışanlarının iş süreçlerini rahatlatacak eğitimler planlayın. 🎯
Microsoft Office eğitimlerimiz hakkında detaylı bilgi için bize ulaşın.
👉 Microsoft Office Eğitim Talebi
- Konbuyu başlatan incsoft
- Başlangıç tarihi
- Durum
turk-x
Yeni Üye
formülle yapmak istersen
Sayfa 1 de
formülleri yazdıktan sonra a2 hücresini data sayfasındaki dolu satır kadar asağıya doğru sürükle.
son hücrede de formüldeki son tırnak işareti öncesine ] ekle işlem tamam.
ama sorun şu ki bir hücrenin alabileceği karakter sayısı sınırlıdır. Bu yüzden 1000 satırlık veride komutu 2 -3 satıra bölmen gerekebilir.
Makro ile yapmak istersen for next döngüsü ile yapılabilir. oluşan veriyi txt ye yazdırarak hücre limitine takılmadan tek hamlede yapabilirsin.
Sayfa 1 de
Kod:
A1 Hücresine:
="{Sheet1_.Teyit Metni} like ["&""""&DATA!A1&""""
A2 Hücresine:
=A1&","""&DATA!A2&""""son hücrede de formüldeki son tırnak işareti öncesine ] ekle işlem tamam.
ama sorun şu ki bir hücrenin alabileceği karakter sayısı sınırlıdır. Bu yüzden 1000 satırlık veride komutu 2 -3 satıra bölmen gerekebilir.
Makro ile yapmak istersen for next döngüsü ile yapılabilir. oluşan veriyi txt ye yazdırarak hücre limitine takılmadan tek hamlede yapabilirsin.
turk-x
Yeni Üye
Makro İle Yapmak İsterseniz aşağıdaki kod işinizi görür.
Kod:
Sub KomutYap()
Set D = Sheets("Data")
D.Select
Son = D.Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To Son
veri = veri & """" & D.Range("A" & i) & ""","
Next i
veri = Mid(veri, 1, Len(veri) - 1)
veri = "{Sheet1_.Teyit Metni} like [" & veri & "]"
'Txt ye kaydet
txt = ThisWorkbook.Path & "\Komut.txt"
Open txt For Output As #1
Print #1, veri
Close #1
End Sub
- Katılım
- 28 May 2018
- Mesajlar
- 238
- En iyi yanıt
- 7
- Puanları
- 28
- Yaş
- 38
- Konum
- İstanbul
- Web sitesi
- analistadam.com
- Ad Soyad
- Özkan Sabancı
- Office Vers.
- Microsoft 365 Apps for enterprise TR
Ben bunu çözmüşüm ama paylaşmayı unutmuşum galiba 
Formül ektedir.
Formül ektedir.
- Durum