Hocam Kanalınıza Baktım Excel le Popüler Olacam ha :) Çok Teşekkürler Ama Bir Sıkıntınız Var O Da Çok Emek - az Karşılık almak Umarım Karşılığınızı Alırsınız İnsanlar Eğitim Yerine Saçma Sapan Şeyler İzliyor
20:50 - sonra bi baktım hiçbişey kaydetmemiş. Amaaan Tanrım dedim ! :)) sesli güldüm hocam abone oldum kanalınıza 21. dakikadan sonra, çok yaşayın siz :)
Hocam elinize, aklınıza sağlık. Bir derste aslında bir kaç önemli konuyu anlatmışsınız. 1. Ortak klasör kullanımı 2. Kapalı olan dosyaya kayıt yapma 3. Bence en faydalısı Excel VBA üzerinden kayıt formu oluşturma UDEMY Platformunda Eğitim vermelisiniz bence..
hocam ellerinize ağzınıza sağlık. birde bunun textbox a girdiğimiz her ayrı müşteriye klasör oluşturma ve aynı müşteriye aynı klasöre veri girme örneğini yapabilirmiyiz. sizden ricam
Değerli hocam yapmış olduğunuz örnekte mesela ilk sipariş kaydı 01.01.2021 de yapıldı bitti ve02.01.2021 tarihli kayıt içinse sipariş2 excel dosyasına yapılması lazım bunu aynı userform üzerinden nasıl yapmalıyız bu sefer 01 olarak yapmış olduğumuz kaydı 02 olarak mı yapmalıyız? yardımcı olursanız sevinirim hocam şimdiden teşekkürler.
Sevgili hocam çok teşekkürler emeğinize sağlık ilk başta anlamamıştım . Ama sonra tekrarlayıp kodları izlediğimde ne demek istediğinizi anladım. Değerli Hocam bu tarihin yanına saat yazabilirmiyiz "A" da bende txtSaat olması lazım bunu nasıl yapabilirim? şimdiden teşekkür ederim hocam.
@@BstYazilimKıymetli hocam benim uygulamamda aşağıdaki satırda hep hata veriyor. If Application.Workbooks("bilgiler").Sheets("bilgi").Range("A" & x).Value = "" Then Acaba Tool-References sekmesinden eksik bir referansmı var veya excel versiyon farkılığı olabilir mi? Şimdiden teşekkür ederim.
hocam böylelikle ozman bu formu 2 veya 3 kişi kullansa siparişler olan sayfayıda 2 li çalışma kitabı olarak kayıt etsek ana formdan aynı zamanlarda kayıt yapılsa sorun olurmu ?
Merhaba. Benim elimde bir excel dosyasında fiyat listesi var ve diğer excel dosyasında olan fiyatları otomatik nasıl yoklama yapa bilirim? Yani, fiyatın doğru olup-olmadığını?
Hocam bana şöyle birşey lazım örneğin Autocad de bir dolap çizdim bu dolabın çizimini excelde kesim ölçülerinin altında görmek istiyorum bu çizime tıklayınca direk Autocad açılsın üzerinde değişiklik yaptığımda kapatınca excel de çizim güncellensin yani autocad den jpeg resim alıp excele aktarmaktansa direk üzerine tıklayınca Autocad açılsın bu konuda bana yardımcı olabilir misiniz.
Hocam siparis dosyasında veri varsa daha önce kayıtlı demesi, oradaki veriyi silme ve güncelleme gibi işlemleri de yapsanız ne iyi olurdu. Bu konuda yardımcı olabilir misiniz?
merhaba hocam, ortak bir klasördeki excel dosyasını kimse açmasın diye şifre varsa bu durumda nasıl bir yol izleyebiliriz. Şifreli bir örnek yapabilir misiniz veya hangi kodları eklemek gerekir
Hocam elinize sağlık. Benim bir sorum var işlemi yap diyorum dosya yolunu bulamıyor ancak f8 ile adimlayarak yaptırıyorum sorunsuz çalışıyor anlamdım neden
Hocam benim Application.Workbooks("teklifler").Sheets("Sayfa1").Range("A" & x).Value = TextBox1.Value kodunda sürekli hata veriyor sizin video kaydediyor benim kaydetmiyor tool referanslarına bir şey mi eklemek gerek veya başka ne hata olabilir. Sayfayı açıyor açık kalıyor ekleme yapmıyor yukarıdaki kodda takılıyor.
hocam diyelim ki dosya yolunu değiştirdik her seferinde kod bloğuna mı girip değiştirecez veya bu klasörün yolunu gösterebileceğimiz bir kod örneğiniz varmı bu konuda takıldım yardım ederseniz sevinirim
If Application.Workbooks("bilgiler").Sheets("bilgi").Range("A" & x).Value = "" Then bu satırdaki hatayı çözen varmı kütüphaneden herhangi bir eklentiyimi işaretlemek gerekiyor acaba
Private Sub BtnKaydet_Click() Dim x As Long Application.Workbooks.Open ("C:\Users\SERENO\Desktop\program\Siparis.xlsx") For x = 2 To 10000 If Application.Workbooks("Siparis.XLSX").Sheets("Siparisler").Range("A" & x).Value = "" Then Exit For Next Application.Workbooks("Siparis.XLSX").Sheets("Siparisler").Range("A" & x).Value = TxtTarih.Value Application.Workbooks("Siparis.XLSX").Sheets("Siparisler").Range("B" & x).Value = TxtSiparisAdi.Value Application.Workbooks("Siparis.XLSX").Sheets("Siparisler").Range("C" & x).Value = TxtFiyat.Value Application.Workbooks("Siparis.XLSX").Sheets("Siparisler").Range("D" & x).Value = TxtMiktar.Value * TxtFiyat.Value Application.Workbooks("Siparis.XLSX").Sheets("Siparisler").Range("E" & x).Value = TxtAciklama.Value Application.Workbooks("Siparis.XLSX").Sheets("Siparisler").Range("F" & x).Value = TxtDurum.Value Application.Workbooks("Siparis.XLSX").Close Savechanges:=True FrmMesaj.LblMesaj.Caption = "TAMAMLANDI" FrmMesaj.Show Unload Me End Sub
Hocam çok işime yarayan bir çözüm olacak. Ama formüle ne yapsam aşağıda belirttiğim yerde hata alıyorum. If Application.Workbooks("Tablo").Sheets("Sayfa1").Range("A2" & x).Value = " " Then Exit kısımı sarı şekilde kalıyor. defalarca kontrolleri yaptım. Fakat çözemedim. Destek olursanız memnun olurum. ellerinize emeğinize sağlık..
@@fuatserdaroglu6104 Private Sub BtnKaydet_Click() Dim x As Long Application.Workbooks.Open ("C:\Users\SERENO\Desktop\program\Siparis.xlsx") For x = 2 To 10000 If Application.Workbooks("Siparis.XLSX").Sheets("Siparisler").Range("A" & x).Value = "" Then Exit For Next Application.Workbooks("Siparis.XLSX").Sheets("Siparisler").Range("A" & x).Value = TxtTarih.Value Application.Workbooks("Siparis.XLSX").Sheets("Siparisler").Range("B" & x).Value = TxtSiparisAdi.Value Application.Workbooks("Siparis.XLSX").Sheets("Siparisler").Range("C" & x).Value = TxtFiyat.Value Application.Workbooks("Siparis.XLSX").Sheets("Siparisler").Range("D" & x).Value = TxtMiktar.Value * TxtFiyat.Value Application.Workbooks("Siparis.XLSX").Sheets("Siparisler").Range("E" & x).Value = TxtAciklama.Value Application.Workbooks("Siparis.XLSX").Sheets("Siparisler").Range("F" & x).Value = TxtDurum.Value Application.Workbooks("Siparis.XLSX").Close Savechanges:=True FrmMesaj.LblMesaj.Caption = "TAMAMLANDI" FrmMesaj.Show Unload Me End Sub BÖYLE DENER MİSİN
Eğer bir kişi aktarırken , başka biri aktarmayı denerse salt okunur olarak görecek ve kaydetmeyecektir ya da farklı kaydet penceresi açılacaktır. Verilerin aktarılacağı Excel kitabına ADO ile aynı anda aktarılabilir ancak.
Merhaba hocam eline emeğine sağlık, sayende çok değişik bilgiler öğreniyoruz ancak bir sıkıntım var. bende sipariş.xlsx .close yapmış olmama rağmen excel sipariş dosyasını kapatıyor arka planda application.screen update false olduğu için görünmeden kapanıyor buraya kadar çok güzel ancak vba tarafında soldaki pencerelerde onlarca sipariş.xlsx açıkmış gibi görünüyor. Üzerine bastığımızda sipariş.xlsx dosyası excel kapalı olduğu için program sapıtıyor dışarı atıyor sonra ana dosyaya girdiğimizde onarılmış excel olarak başlıyor ve bazı özellikleri iptal ediyor, tekrar baştan sayfaların içindeki commandbuttonları baştan yapmak gerekiyor. Asıl programı bozuyor. vba tarafında sayfa ismine tıklamasan bile onlarca sipariş.xlsx açıkmış gibi kalıyor. Neden bu şekilde oluyor acaba yardımcı olabilir misiniz=
Hocam Kanalınıza Baktım Excel le Popüler Olacam ha :) Çok Teşekkürler Ama Bir Sıkıntınız Var O Da Çok Emek - az Karşılık almak Umarım Karşılığınızı Alırsınız İnsanlar Eğitim Yerine Saçma Sapan Şeyler İzliyor
Eyvallah kardeşim çok işime yaradı. Süperr... ellerin dert görmesin...
Hocam Teşekkürler. Sayenizde çok ilerliyorum...
Cok faydali müthiş yaradi, teşekkürler
20:50 - sonra bi baktım hiçbişey kaydetmemiş. Amaaan Tanrım dedim ! :)) sesli güldüm hocam abone oldum kanalınıza 21. dakikadan sonra, çok yaşayın siz :)
bende şimdi kontrol ettim :)) Haklıymışsınız
Hocam elinize, aklınıza sağlık.
Bir derste aslında bir kaç önemli konuyu anlatmışsınız.
1. Ortak klasör kullanımı
2. Kapalı olan dosyaya kayıt yapma
3. Bence en faydalısı Excel VBA üzerinden kayıt formu oluşturma
UDEMY Platformunda Eğitim vermelisiniz bence..
Teşekkürker. Arif bey
Elinize sağlık. Açık anahtarını çalışma kitabını açma komut satırının hemen altına yazsaydık tekrar aynı komutları yazmamış olacaktık.
hocam ellerinize ağzınıza sağlık. birde bunun textbox a girdiğimiz her ayrı müşteriye klasör oluşturma ve aynı müşteriye aynı klasöre veri girme örneğini yapabilirmiyiz. sizden ricam
Emeklerinize sağlık.
Değerli hocam yapmış olduğunuz örnekte mesela ilk sipariş kaydı 01.01.2021 de yapıldı bitti ve02.01.2021 tarihli kayıt içinse sipariş2 excel dosyasına yapılması lazım bunu aynı userform üzerinden nasıl yapmalıyız bu sefer 01 olarak yapmış olduğumuz kaydı 02 olarak mı yapmalıyız? yardımcı olursanız sevinirim hocam şimdiden teşekkürler.
Sevgili hocam çok teşekkürler emeğinize sağlık ilk başta anlamamıştım . Ama sonra tekrarlayıp kodları izlediğimde ne demek istediğinizi anladım. Değerli Hocam bu tarihin yanına saat yazabilirmiyiz "A" da bende txtSaat olması lazım bunu nasıl yapabilirim? şimdiden teşekkür ederim hocam.
💯💯💯💯💯💯💯💯💯
Hocam aylardır araştırdığım, lakin bir türlü bulamadığım uygulama. Allah senden razı olsun.
Allah sizdende razı olsun. Sevindim...
@@BstYazilimKıymetli hocam benim uygulamamda aşağıdaki satırda hep hata veriyor.
If Application.Workbooks("bilgiler").Sheets("bilgi").Range("A" & x).Value = "" Then
Acaba Tool-References sekmesinden eksik bir referansmı var veya excel versiyon farkılığı olabilir mi? Şimdiden teşekkür ederim.
@@suatomerbeyoglu3180 Çalışmanızı bstkanali@gmail.com adresine gönderin düzeltip size gönderirim
@@BstYazilim dün gönderdim hocam
@@suatomerbeyoglu3180 sorun çözüldü mü bende de aynı sıkıntıda hata veriyor. Hata neredeyse cevaben paylaşabilir misiniz
hocam böylelikle ozman bu formu 2 veya 3 kişi kullansa siparişler olan sayfayıda 2 li çalışma kitabı olarak kayıt etsek ana formdan aynı zamanlarda kayıt yapılsa sorun olurmu ?
Merhaba. Benim elimde bir excel dosyasında fiyat listesi var ve diğer excel dosyasında olan fiyatları otomatik nasıl yoklama yapa bilirim? Yani, fiyatın doğru olup-olmadığını?
Hocam Merhaba. Bir klosördeki dosyaları açıp koşula göre yeni sayfa oluşturmak istiyorum. Kodlarda bana yardımcı olurmusunuz.
Hocam bana şöyle birşey lazım örneğin Autocad de bir dolap çizdim bu dolabın çizimini excelde kesim ölçülerinin altında görmek istiyorum bu çizime tıklayınca direk Autocad açılsın üzerinde değişiklik yaptığımda kapatınca excel de çizim güncellensin yani autocad den jpeg resim alıp excele aktarmaktansa direk üzerine tıklayınca Autocad açılsın
bu konuda bana yardımcı olabilir misiniz.
Hocam siparis dosyasında veri varsa daha önce kayıtlı demesi, oradaki veriyi silme ve güncelleme gibi işlemleri de yapsanız ne iyi olurdu. Bu konuda yardımcı olabilir misiniz?
merhaba hocam, ortak bir klasördeki excel dosyasını kimse açmasın diye şifre varsa bu durumda nasıl bir yol izleyebiliriz. Şifreli bir örnek yapabilir misiniz veya hangi kodları eklemek gerekir
eline ağzına sağlık mükemmel olmuş
ADO ile daha kolay yapılamaz mıydı? Hem dosyayı açmak zorunda kalmazsınız ;)
Ado ile nasıl yapılır. kısa bilgi verebilir misiniz ?
Hocam elinize sağlık. Benim bir sorum var işlemi yap diyorum dosya yolunu bulamıyor ancak f8 ile adimlayarak yaptırıyorum sorunsuz çalışıyor anlamdım neden
Hocam Merhaba,
If Application.Workbooks("VERİLER").Sheets("BİLGİLER").Range("A" & x).Value = "" Then Exit For kodunda hata almaktayım anlayamadım.
Hocam benim Application.Workbooks("teklifler").Sheets("Sayfa1").Range("A" & x).Value = TextBox1.Value kodunda sürekli hata veriyor sizin video kaydediyor benim kaydetmiyor tool referanslarına bir şey mi eklemek gerek veya başka ne hata olabilir. Sayfayı açıyor açık kalıyor ekleme yapmıyor yukarıdaki kodda takılıyor.
hocam diyelim ki dosya yolunu değiştirdik her seferinde kod bloğuna mı girip değiştirecez veya bu klasörün yolunu gösterebileceğimiz bir kod örneğiniz varmı bu konuda takıldım yardım ederseniz sevinirim
Ellerine sağlık
Eline sağlık hocam
hocam kolay gelsin matba üzerinden gidecek olursak hazırlanmış olan tasarım yada resimi de göndere bilirmiyiz
hocam tarih formatını sadece tarih değil de siparişin o anda gelen tarih ve saati ile kayıt edebilirmiyiz
date kullanmazsınız; textBox'a girilen tarihe göre kayıt ettirirsiniz.
Bir de ado ile ilgili bir örnek paylaşabilir misiniz
If Application.Workbooks("bilgiler").Sheets("bilgi").Range("A" & x).Value = "" Then bu satırdaki hatayı çözen varmı kütüphaneden herhangi bir eklentiyimi işaretlemek gerekiyor acaba
Private Sub BtnKaydet_Click()
Dim x As Long
Application.Workbooks.Open ("C:\Users\SERENO\Desktop\program\Siparis.xlsx")
For x = 2 To 10000
If Application.Workbooks("Siparis.XLSX").Sheets("Siparisler").Range("A" & x).Value = "" Then Exit For
Next
Application.Workbooks("Siparis.XLSX").Sheets("Siparisler").Range("A" & x).Value = TxtTarih.Value
Application.Workbooks("Siparis.XLSX").Sheets("Siparisler").Range("B" & x).Value = TxtSiparisAdi.Value
Application.Workbooks("Siparis.XLSX").Sheets("Siparisler").Range("C" & x).Value = TxtFiyat.Value
Application.Workbooks("Siparis.XLSX").Sheets("Siparisler").Range("D" & x).Value = TxtMiktar.Value * TxtFiyat.Value
Application.Workbooks("Siparis.XLSX").Sheets("Siparisler").Range("E" & x).Value = TxtAciklama.Value
Application.Workbooks("Siparis.XLSX").Sheets("Siparisler").Range("F" & x).Value = TxtDurum.Value
Application.Workbooks("Siparis.XLSX").Close Savechanges:=True
FrmMesaj.LblMesaj.Caption = "TAMAMLANDI"
FrmMesaj.Show
Unload Me
End Sub
Teşekkürler abi
hocam ben libre office kullanıyorum bu işlemler libre office calc de yapılabilir mi
Libre office i ilk defa sizden duyuyorum. Hiç bilgim yok maalesef
Hocam çok işime yarayan bir çözüm olacak. Ama formüle ne yapsam aşağıda belirttiğim yerde hata alıyorum.
If Application.Workbooks("Tablo").Sheets("Sayfa1").Range("A2" & x).Value = " " Then Exit kısımı sarı şekilde kalıyor.
defalarca kontrolleri yaptım. Fakat çözemedim. Destek olursanız memnun olurum.
ellerinize emeğinize sağlık..
.Range("A2" & x).Value değil .Range("A" & x).Value olmalı
@@BstYazilim .Range("A" & x).Value şeklinde yaptım olmuyor hocam.
@@fuatserdaroglu6104
Private Sub BtnKaydet_Click()
Dim x As Long
Application.Workbooks.Open ("C:\Users\SERENO\Desktop\program\Siparis.xlsx")
For x = 2 To 10000
If Application.Workbooks("Siparis.XLSX").Sheets("Siparisler").Range("A" & x).Value = "" Then Exit For
Next
Application.Workbooks("Siparis.XLSX").Sheets("Siparisler").Range("A" & x).Value = TxtTarih.Value
Application.Workbooks("Siparis.XLSX").Sheets("Siparisler").Range("B" & x).Value = TxtSiparisAdi.Value
Application.Workbooks("Siparis.XLSX").Sheets("Siparisler").Range("C" & x).Value = TxtFiyat.Value
Application.Workbooks("Siparis.XLSX").Sheets("Siparisler").Range("D" & x).Value = TxtMiktar.Value * TxtFiyat.Value
Application.Workbooks("Siparis.XLSX").Sheets("Siparisler").Range("E" & x).Value = TxtAciklama.Value
Application.Workbooks("Siparis.XLSX").Sheets("Siparisler").Range("F" & x).Value = TxtDurum.Value
Application.Workbooks("Siparis.XLSX").Close Savechanges:=True
FrmMesaj.LblMesaj.Caption = "TAMAMLANDI"
FrmMesaj.Show
Unload Me
End Sub
BÖYLE DENER MİSİN
@@fuatserdaroglu6104 büyük ihtimalle workbook ismini uzantısıyla birlikte yazmanız gerekiyor. yani sizin örneğinizde "tablo.xlsx"
subject out of range hatası for döngüsünde bu hatayı alıyorum hep sayfa ismini birleştirdim aynı hata gene gelmekte
Hocam o zaman birden çok kişi aynı anda kullanabilir mi bu programı
Eğer bir kişi aktarırken , başka biri aktarmayı denerse salt okunur olarak görecek ve kaydetmeyecektir ya da farklı kaydet penceresi açılacaktır. Verilerin aktarılacağı Excel kitabına ADO ile aynı anda aktarılabilir ancak.
@@ersint.878 Herkes ADO ADO yazmış. Şu mübarek ADO ile yapılmış bir örnek yok mu mail atsanız
Excel de Makro ve VBA çalışmak başka birşey kolay hacam
Merhaba hocam eline emeğine sağlık, sayende çok değişik bilgiler öğreniyoruz ancak bir sıkıntım var. bende sipariş.xlsx .close yapmış olmama rağmen excel sipariş dosyasını kapatıyor arka planda application.screen update false olduğu için görünmeden kapanıyor buraya kadar çok güzel ancak vba tarafında soldaki pencerelerde onlarca sipariş.xlsx açıkmış gibi görünüyor. Üzerine bastığımızda sipariş.xlsx dosyası excel kapalı olduğu için program sapıtıyor dışarı atıyor sonra ana dosyaya girdiğimizde onarılmış excel olarak başlıyor ve bazı özellikleri iptal ediyor, tekrar baştan sayfaların içindeki commandbuttonları baştan yapmak gerekiyor. Asıl programı bozuyor. vba tarafında sayfa ismine tıklamasan bile onlarca sipariş.xlsx açıkmış gibi kalıyor. Neden bu şekilde oluyor acaba yardımcı olabilir misiniz=
merhaba
sizlerle aynı kodları yazmama rağmen hata almaktayım tarafınıza mail gönderdim yardımcı olursanız sevinirim
iyi çalışmlar