• Web sitemizin SORU-CEVAP bölümünde dosya yüklemek ve dosya indirmek ÜCRETSİZ'dir.
    Gizlilik kapsamında, sadece site yöneticilerimizin ve üyenin kendisinin görebileceği ÜCRETLİ ÖZEL DESTEK alanımız mevcuttur.

Çözüldü Sayfadaki bilgileri Macro ile kayit etme

mtecimer

VIP
VIP
Kullanıcı

Reputation:

Merhaba, Fatura calismasi yapiyorum ve formulle isin icinden cikamayacagimi anlayinca sizlerden Macro destegi almak istedim. Detaylari dosyamda paylastim insallah aciklamam anlasilabilir sekilde olmustur, Ilgilenen arkadaslara simdiden tesekkur ederim.
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

Ekli dosyalar (Dosyaları İndirmek İçin Beğenmeniz Gerekir)

  • Fatura Calisma.xlsm
    32.6 KB · Görüntüleme: 10

Ömer BARAN

Kurucu
Yönetici
Kurucu

Reputation:

Evet, önceki dosyayı sildim, gördüğünüz yenisi. Sayfayı yenileyin tekrar indirin.
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

mtecimer

VIP
VIP
Kullanıcı

Reputation:

Evet, önceki dosyayı sildim, gördüğünüz yenisi. Sayfayı yenileyin tekrar indirin.
Elinize saglik hocam cok güzel oldu. Tesekkürler.

Yarin birkac test yaptiktan sonra konuyu cözüldü olarak isaretlesem uygun mudur ?
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

mtecimer

VIP
VIP
Kullanıcı

Reputation:

Bir de bu cevaba eklediğim uygulamayı deneyin bakalım.
Dosya içerisinde açıklama da yazdım.
Dosyada, L10 hücresini seçtiğinde görünür hale gelen bir adet TextBox ve
bu Textbox'a yazmaya başladığında, diğer sayfadaki müşteri isimleri içinde,
İÇERİR mantığıyla gerçekleşen ARAMA sonuçlarının listelendiği bir adet LISTBOX mevcut.

Listbox'taki bir müşterişe fareyle ÇİFT tıklandığında veri aktarma işlemi gerçekleşir.

.
Hocam tekrar merhaba,

PDF - Mail -Speichern Butonuna tikladigimda hata raporu geliyor ama macro da bir Debug vermiyor sorun neden olabilir ?
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

Ömer BARAN

Kurucu
Yönetici
Kurucu

Reputation:

Belgedeki e-posta koduyla hiç ilgilenmemiştim.

Outlook kullanmadığım için deneme (gönderme anlamında) şansım yok.
Gördüğüm şey e-postanın hazırlandığı ama GÖNDERME işleminin olmadığı.

Şayet gönderme işlemiyle ilgili sorun varsa; fatura ismini verdiğiniz e-posta gönderme kodunun içindeki
aşağıdaki kısma yeşil renklendirdiğim satırı ekleyin.
Ayrıca; oluşturularak e-posta ile gönderilen pdf belge bilgisayarınızda kalmasın. silinsin istiyorsanız da
en alttaki kırmızı satırı ekleyin.

Rich (BB code):
Değerli ziyaretçimiz lütfen, içeriği görüntüleyebilmek için Giriş Yap veya Kayıt Ol anlayışınız için teşekkürler.

.
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

mtecimer

VIP
VIP
Kullanıcı

Reputation:

Belgedeki e-posta koduyla hiç ilgilenmemiştim.

Outlook kullanmadığım için deneme (gönderme anlamında) şansım yok.
Gördüğüm şey e-postanın hazırlandığı ama GÖNDERME işleminin olmadığı.

Şayet gönderme işlemiyle ilgili sorun varsa; fatura ismini verdiğiniz e-posta gönderme kodunun içindeki
aşağıdaki kısma yeşil renklendirdiğim satırı ekleyin.
Ayrıca; oluşturularak e-posta ile gönderilen pdf belge bilgisayarınızda kalmasın. silinsin istiyorsanız da
en alttaki kırmızı satırı ekleyin.

Rich (BB code):
Değerli ziyaretçimiz lütfen, içeriği görüntüleyebilmek için Giriş Yap veya Kayıt Ol anlayışınız için teşekkürler.

.
Hocam sorunu biraz ugrasinca buldum sanirim. Sayfa normalde sifreli ve Butona bastigimda önce sifreyi kaldirmasi ile ilgili kod var sonunda da tekardan sifre koyma kodu var ama o arada hata aliyorum. Hata olan yeri kirimizi ile renklendirdim.


Rich (BB code):
Değerli ziyaretçimiz lütfen, içeriği görüntüleyebilmek için Giriş Yap veya Kayıt Ol anlayışınız için teşekkürler.
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

Ömer BARAN

Kurucu
Yönetici
Kurucu

Reputation:

Mesajlarınızı yazarken, cevaba, kod/formül ekleyeceğiniz zaman
görseldeki simgeye tıklayıp, kodu/formülü, karşınıza gelecek yeni pencereye yapıştırırsanız
forum sayfalarımız daha etkin kullanılmış ve forum sayfalarımız da daha temiz bir görünmüş olur.

1602883491146.png


Belirttiğiniz; Tabelle2.Cells(10, "I") =......... satırı, sayfa korumalı olduğu için sorun çıkartıyorsa,
YAZ isimli kodun en başındaki
If WorksheetFunction.CountIf(Tabelle1.[B:B], [L10]) = 0 Then Exit Sub
satırının altına ActiveSheet.Unprotect "1" satırı,
End Sub satırının üstüne de ActiveSheet.Protect "1" satırı
ekleyin.

.
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

mtecimer

VIP
VIP
Kullanıcı

Reputation:

Ta
Mesajlarınızı yazarken, cevaba, kod/formül ekleyeceğiniz zaman
görseldeki simgeye tıklayıp, kodu/formülü, karşınıza gelecek yeni pencereye yapıştırırsanız
forum sayfalarımız daha etkin kullanılmış ve forum sayfalarımız da daha temiz bir görünmüş olur.

Ekli dosyayı görüntüle 6151


Belirttiğiniz; Tabelle2.Cells(10, "I") =......... satırı, sayfa korumalı olduğu için sorun çıkartıyorsa,
YAZ isimli kodun en başındaki
If WorksheetFunction.CountIf(Tabelle1.[B:B], [L10]) = 0 Then Exit Sub
satırının altına ActiveSheet.Unprotect "1" satırı,
End Sub satırının üstüne de ActiveSheet.Protect "1" satırı
ekleyin.

.
Tamam Hocam birdaha ki sefere dikkat ederim bilgilendirme icin tesekkürler.

Bu kod isimi cözdü hata raporu almiyorum artik.

Arama kisminda satir sinirlamasi mi var ? Örnek Kundenlist sayfasinda B163 satirda benim yeni listede "Zeynep" var fakat onu bulamiyor ?
Ad yöneticisinde sizin yazdiginiz formülde aslinda tüm B hücresinde arama gözüküyor !
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

Ömer BARAN

Kurucu
Yönetici
Kurucu

Reputation:

Belki Listbox'un yüksekliğinde sorun vardır ve o yüzden görmüyorsunuzdur.

Koddaki ListBox1.Height = 12 * (ListBox1.ListCount) + 8 satırındaki 12 sayısını 14 yaparak,
bir de doğrudan belirttiğiniz hücredeki değeri yazarak deneyin, bulması gerekir.

Kod B2'den B sütununda alttan üste doğru ilk dolu hücreye kadar arama yapıyor durumda.

.
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

mtecimer

VIP
VIP
Kullanıcı

Reputation:

Belki Listbox'un yüksekliğinde sorun vardır ve o yüzden görmüyorsunuzdur.

Koddaki ListBox1.Height = 12 * (ListBox1.ListCount) + 8 satırındaki 12 sayısını 14 yaparak,
bir de doğrudan belirttiğiniz hücredeki değeri yazarak deneyin, bulması gerekir.

Kod B2'den B sütununda alttan üste doğru ilk dolu hücreye kadar arama yapıyor durumda.

.
Hocam sanirim büyük harfle basliyorsa Verimiz, Bizde aramaya büyük harfle baslamamiz gerekiyor ?

Arama kisminda büyük kücük harf duyarliligi konulabilir mi ?
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

Ömer BARAN

Kurucu
Yönetici
Kurucu

Reputation:

Türkçe karakter sıkıntısı olur mu deneyip görmek lazım ama,

TextBox1_Change kod blokundaki For...Next döngüsünde yer alan
If Sheets("Kundenlist").Cells(brn, "B") Like "*" & TextBox1 & "*" Then
satırını
If Ucase(Sheets("Kundenlist").Cells(brn, "B")) Like "*" & Ucase(TextBox1) & "*" Then

olarak değiştirip kontrol edin.

.
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

mtecimer

VIP
VIP
Kullanıcı

Reputation:

Türkçe karakter sıkıntısı olur mu deneyip görmek lazım ama,

TextBox1_Change kod blokundaki For...Next döngüsünde yer alan
If Sheets("Kundenlist").Cells(brn, "B") Like "*" & TextBox1 & "*" Then
satırını
If Ucase(Sheets("Kundenlist").Cells(brn, "B")) Like "*" & Ucase(TextBox1) & "*" Then

olarak değiştirip kontrol edin.

.
Hocam elinze emeginize saglik. Efsane oldu hakkinizi helal edin cok emeginiz gecti.

Sitede ücretli üyelik yapmamiz mümkün mü en azindan benim de sizlere bir katkim olsun.
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

Ömer BARAN

Kurucu
Yönetici
Kurucu

Reputation:

Sağ üstten, kendi profilinize girerseniz, HESAP YÜKSELTME bölümü olması gerekir.
Sorun yaşarsanız, iletin ilgilenelim.

Ayrıca çevrenizdeki Excel kullanıcılarına forumumuza üye olmalarını salık vermeniz,
forumda mümkün olduğunca sık ve uzun süreli çevrimiçi olmanız da bizleri memnun eder.

.
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

mtecimer

VIP
VIP
Kullanıcı

Reputation:

Sağ üstten, kendi profilinize girerseniz, HESAP YÜKSELTME bölümü olması gerekir.
Sorun yaşarsanız, iletin ilgilenelim.

Ayrıca çevrenizdeki Excel kullanıcılarına forumumuza üye olmalarını salık vermeniz,
forumda mümkün olduğunca sık ve uzun süreli çevrimiçi olmanız da bizleri memnun eder.

.
Gönül rahatigi ile tüm ilgili arkadaslara tavsiye ediyorum etmeye devam edecem insallah.

Ödemeyi yaptim umarim hesabiniza gecmistir. Tekrar tesekkürler hayirli geceler
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

mtecimer

VIP
VIP
Kullanıcı

Reputation:

Hocam tekrar merhaba,

Satir 17:18 arasini otomatik gizleyip acilmasi icin L16 satirinin oldugu yere 2 adet Combobox koydum ve icerigine macrolari yazdim fakat istedigim gibi calismiyor. Benim gizle demedigim satirlari bile gizliyor sanirim farkli bir macro ile cakisiyor. Size zahmet bir kontrol edebilirmisiniz ?
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

Ekli dosyalar (Dosyaları İndirmek İçin Beğenmeniz Gerekir)

  • Rechnung V.1.0.3.xlsm
    115.3 KB · Görüntüleme: 1

Ömer BARAN

Kurucu
Yönetici
Kurucu

Reputation:

Belgeniz ekte.

.
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

Ekli dosyalar (Dosyaları İndirmek İçin Beğenmeniz Gerekir)

  • Rechnung V.1.0.3.xlsm
    109.3 KB · Görüntüleme: 1

mtecimer

VIP
VIP
Kullanıcı

Reputation:

Hocam elinize saglik gene farkinizi belli ettiniz.
Tesekkürler.
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

mtecimer

VIP
VIP
Kullanıcı

Reputation:

Hocam tekrar merhaba,
Rechnung G ve H sutunlari veri cagirdigi noktalarda bir yanlis anlasilma var sanirim. Ekte tabloda olmasi gerekenleri paylastim size zahmet vaktiniz oldugunda bakabilirmisiniz ?
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

Ekli dosyalar (Dosyaları İndirmek İçin Beğenmeniz Gerekir)

  • Rechnung V.1.0.3.xlsm
    113 KB · Görüntüleme: 1

Ömer BARAN

Kurucu
Yönetici
Kurucu

Reputation:

YAZ adlı makro kodundaki ilgili kısımları aşağıdaki gibi düzeltmeniz yeterli olur.

Rich (BB code):
Değerli ziyaretçimiz lütfen, içeriği görüntüleyebilmek için Giriş Yap veya Kayıt Ol anlayışınız için teşekkürler.

.
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

Çözüm

mtecimer

VIP
VIP
Kullanıcı

Reputation:

YAZ adlı makro kodundaki ilgili kısımları aşağıdaki gibi düzeltmeniz yeterli olur.

Rich (BB code):
Değerli ziyaretçimiz lütfen, içeriği görüntüleyebilmek için Giriş Yap veya Kayıt Ol anlayışınız için teşekkürler.

.
Elinize saglik Hocam suan istenildigi gibi calisir durumda. Tesekkürler
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

Üst