Arama sonuçlarınız

  1. metehan8001

    Soru UserForm ile Application.Visible Durumu

    Application.Visible= False yerine Aplication.Windows(ThisWorkbook).Visible = False yazın. userforum showmodal false yapın. Veya başka bir alternatif Bu kodu bir deneyin. Private Sub UserForm_Resize() ad = ThisWorkbook.Name If Me.Height < 100 Then Windows(ad).Visible = False If...
  2. metehan8001

    Soru Yerinekoy ile Yada bir arada kullanımı

    Aşağıdaki yazılı olan formülü yazabilirsiniz. =YERİNEKOY(YERİNEKOY(YERİNEKOY(VERİ!E2;"4LÜ";"");"(1Lİ)";"");"D.PAÇA";"PAÇALI")
  3. metehan8001

    Soru VBA - Excel verilerini taratıp Word'e yazdırma

    Sorunu çözebildi iseniz ne mutlu, iyi çalışmalar. Sitemize her zaman bekleriz. :)
  4. metehan8001

    Soru VBA - Excel verilerini taratıp Word'e yazdırma

    16 olması önemli değil hangisi varsa onu yapacaksın ve dosyayı pc başında arkadaşa gönderdim normal çalışıyor bilgisini verdi. Makroların çalışması için güvenlik düzeyini düşüğe ayarlamak gerekiyor. Excelde makroları etkin kılmak için. *Önce araçları seçelim. *Makro>Güvenlik seçelim. *En...
  5. metehan8001

    Soru VBA - Excel verilerini taratıp Word'e yazdırma

    Dediğim gibi bende normal çalışıyor. Ben yinede kodlara ufak bir müdahale ettim. Yüklendiğim dosyayı indir dene. Sub Hazirla() 'VBE'de tools-references'dan Microsoft Word 14.0 Object Library işaretlenmelidir. 'VBE'de tools-references'dan Microsoft Word 1x.0 Object Library işaretlenmelidir. Dim...
  6. metehan8001

    Soru VBA - Excel verilerini taratıp Word'e yazdırma

    Yok bundan dolayı yapmaz. Microsoft Word 12.0 Object Library Microsoft Word 13.0 Object Library Microsoft Word 14.0 Object Library Microsoft Word 15.0 Object Library Microsoft Word 16.0 Object Library hangisi varsa onu işaretle.
  7. metehan8001

    Soru VBA - Excel verilerini taratıp Word'e yazdırma

    Sütün başlıklarını kontrol et. İlgili sütun başlığının altında ilgili veriler olması gerek. Yani sütun başlıklarını baz alarak yapıyor.
  8. metehan8001

    Soru VBA - Excel verilerini taratıp Word'e yazdırma

    Yukarıda bir ekran görüntüsü atmıştım, gördün mü onu. bende öyle çıkıyor tebrik mesajları. Kapatıp açma işine de gelince her personele özel doc oluşturup kapatıyor.
  9. metehan8001

    Soru VBA - Excel verilerini taratıp Word'e yazdırma

    Öncelikle: VBE'de tools-references'dan Microsoft Word 1x.0 Object Library işaretlenmelidir. Aksi halde hatalı davranır. Sub Hazirla() 'VBE'de tools-references'dan Microsoft Word 14.0 Object Library işaretlenmelidir. 'VBE'de tools-references'dan Microsoft Word 1x.0 Object Library...
  10. metehan8001

    Soru VBA - Excel verilerini taratıp Word'e yazdırma

    @MemoliPayne alıntı olduğunu belirtseydin keşke :). Neyse yapmış olduğum bu çalışmanın 2.versiyonunu atıyorum. Her yıl için özel tebrik yazıyor. ADO bağlantı kodlarını sadeleştirdim.
  11. metehan8001

    Soru ComboBox.Items.Remove ile silme işlemi

    İyi çalışmalar Hocam.
  12. metehan8001

    Soru ComboBox.Items.Remove ile silme işlemi

    Aşağıdaki gibi deneyiniz. For i = 0 To rs.fields.Count - 1 if rs.fields(i).Name <> "ALİ" OR rs.fields(i).Name <> "MEHMET" then ComboBox4.AddItem rs.fields(i).Name End if Next
  13. metehan8001

    Tanışma

    Ne okudum ben az önce ?
  14. metehan8001

    Soru Global Değişken Tanımlama

    birde Public Type Urunler deneyin
  15. metehan8001

    Soru DEMİRBAŞ KAYIT

    Estağfurullah hocam . Her türlü konuda yazın yardımcı oluruz.
  16. metehan8001

    Soru SAP'den makro ile veri çekmek hakkında destek

    Merhaba benim de kullanmış olduğum bağlantı türü aşağıdaki gibidir. Bağlantılarda bunu kullanmaktayım. Belki biliyorsunuzdur faydalan olur diye yazayım. Kod içerisinde SAP penceresini simge durumuna alma ve oturumu kapatma SAP çıkış kodlarıda mevcuttur. kontrol = MsgBox("Oturum Açık mı, Şifre...
  17. metehan8001

    Soru DEMİRBAŞ KAYIT

    hocam dosyayı ilk açtığınızda veya makroyu çalıştırmadan önce veya RUN yazısının altındaki mavi kare butonuna basınca. Menülerde Tools > References yazısının aktif olduğunu göreceksiniz. References butonuna bastığınız da çıkan ekran resmini gonderirin.
  18. metehan8001

    Soru Diğer Sayfaya veri aktarma

    Ahmet beyden cevap gelene kadar bu benden alternatif olsun. Sub Sayfa2ye_Aktar() Application.ScreenUpdating = False Set s1 = Sheets("Acil_DURUM") Set s2 = Sheets("Acil_Durum_KAYIT") sat = s1.Cells(Rows.Count, 1).End(3).Row son = s2.Cells(Rows.Count, 2).End(3).Row + 2 If son = 5 Then son =...
  19. metehan8001

    Soru Makro İle Koşullu Çarpma İşlemi

    rica ederim iyi çalışmalar
  20. metehan8001

    Soru Makro İle Koşullu Çarpma İşlemi

    Sub exceldepo() For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row Set BUL = Range("R:R").Find(Cells(i, "a")) If Not BUL Is Nothing Then Cells(i, "f") = Cells(i, "b") * BUL.Offset(0, 1) Else Cells(i, "f") = Cells(i, "b") * Cells(i, "C") End If Next End Sub
Üst