Sayın hocalarım

Anaform üzerinde gömülü çalışan Müşteri bul formum var bu form üzrinde de kayıt bul alanım ve buton bulunmakta.
Daha önce bağımsız çalışan bu formda
[vb]Private Sub KayitBul_Click()
If IsNull([ISYERIUNVANI]) Then
  MsgBox "Lütfen aramak istediğiniz Firma adı yazınız....!."
  Me.ISYERIUNVANI.SetFocus
  Else
Dim strLinkCriteria
   strLinkCriteria = "[ISYERIUNVANI] Like '*" & Me.ISYERIUNVANI & "*'"
   DoCmd.OpenForm "F_MUSTERICARI", , , strLinkCriteria
   

   

Microsoft Word x.x Object Library ekli olmasına rağmen aşağıdaki kod sürekli aynı hatayı veriyor.
butona ilk bastığımda hata veriyor arka planda word açılıyor (sadece görev yöneticide görünüyor)
eğer arka planda çalışan word'ü kapatmayıp
butona tekrar basarsam işlemi gerçekleştiriyor. sebebini ne olabilir?
[vb]Dim wdApp As Word.Application, wdDoc As Word.Document

On Error Resume Next
Set wdApp = GetObject(, "Word.Application")
If Err.Number <> 0 Then 'Word isn't already running
Set wd

Üstatlar kolay gelsin ,

Ben exel de yapmış olduğum makrolu bir dosyamı ilk açılıştan 1 saniye sonra farklı isimde kaydediyorum birden fazla kullanıcı programı kullandığı için kimse sorun yaşamadan kullanım yapması için böyle bir çözüm bulmuştum kendimce.
[color=#141414][size=small]sonra dosyada değişiklik yapıldıktan sonra yani bilgiler girildikten sonra logo ekledim logoya tıkladıkları zaman belirtilen hücre

[vb]Sub BulDegistir1()

Set pDict = CreateObject("Scripting.Dictionary")
pDict.Add "ÅŸ", "ş"
pDict.Add "ı", "ı"
pDict.Add "Ç", "Ç"
pDict.Add "Ä°", "İ"
pDict.Add "Ş", "Ş"
pDict.Add "ü", "ü"
pDict.Add "Ö", "Ö"
pDict.Add "Ãœ", "Ü"
pDict.Add "Ğ", "Ğ"
pDict.Add "ÄŸ", "ğ"
pDict.Add "ö", "ö"
pDict.Add "ç", "ç"
'Buraya istenildiği kadar ekleme yapılabilir.

For Each p In pDict
    Columns("C:AA").Replace what:=p, replacement:=pDict.Item(p), LookAt:=xlPart, _
        SearchOrde

Veri sayfasındaki bilgileri macro ile kritere göre getiriyorum. Yalnız macro da başlayanları getiriyor. Baş tarafı veya sonu belli olmayan, içerir olarak macroyu düzeltebilir miyiz? Yardımcı olan arkadaşlara teşekkür ederim.

merhaba arkadaşlar bir listem var 1.4 milyon kayıt ekli burda bulunan tablomda cinsiyet kategorisine Erkeklere 1 kadınlara 2 vermişim acaba bu listede sadece cinsiyet sutununda bulup değiştirme seçeneğpim varmıdır acaba?


[Resim: https://resim.accesstr.net/do.php?img=10009]

Merhaba dostlarım
Ekte bazı dostların sayesinde yaptığım çalışmada ara-bul tıklanınca açılan pencereyi kapattıktan sonra ilçe isimlerinin olduğu  butonlar(Köprü) çalışmıyor. Ancak sayfada boşta tıkladıktan sonra butonlar çalışıyor. Bunun sebebi ve çözümü konusunda yardımcı olabilirmisiniz. Saygı ve sevgilerimle.

(10/03/2021, 00:21)feraz yazdı: Bir Excel açın ve modül ekleyin ve ilk mesajdaki kodu olduğu gibi ekleyin modüle ve çalıştırın.

Kodlardan anladığım kadarıyla c:aa aralığındaki bozuk olanları koddaki karşılıkarı ile değiştirir.

---

(12/03/2020, 15:26)accessman yazdı: pDict.Add "ÅŸ", "ş"

Yani koda göre ş den öndeki bozuk karakter c:aa aralığında varsa ş olarak değiştirir diğerleride aynı şekilde değişir.

Merhabalar
"Posta liste

merhaba
forumda çok aradaım ama tam cevap vereni bulamadım

ekteki programda metin değil nor olarak oluşturduğum tablo var
tüm tablo içinde hiç sormadan onay istemeden tek tuşla
klasik ctrl+h ile elle oluyor ama tuşla olmuyor
bul değiştir kaydet yaptıramıyorum yardımcı olurmusunuz.

iyi günler kolay gelsin
vba kodlarını kullanarak
Sayfa1 de 1. sütunda bulunan kelimeleri
Sayfa2 de 1. sütunda aratmak istiyorum
bulduğunda Sayfa2 de 2. sütun boş ise
Sayfa2 de 2. sütuna Sayfa1 deki 2. sütunundaki değeri yazdırmak istiyorum
bu konuda yardımcı olursanız memnun olurum