hücreden veri okuma

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

hücreden veri okuma

İleti#1)  aytugmert » 26 Mar 2020 16:11

Merhabalar,
Arkadaşlar ben işlerimi kolaylaştırmak için klavye makro programı kullanıyorum iş yerimizde.
Bunun için sorum şu:
makro programına kısayol tuşu atadım. örneğin ".k" yazdığımda kargo ile ilgili işlemlerimi otomatik yapıyor tarihi açıklamayı ve izmayı vs otomatik dolduruyor. excel deki açıklamayı yazıyor.
fakat işlem çok.

İstediğim şey: hücreye ".k" yazdığımda excel klavyeye .k yazması ve makro programını tetiklemesi.
bu mümkün mü?
mümkünse vba bilmeyen bana bunu basit şekilde anlatır mısınız?

Cevaplarınız için şimdiden teşekkürler.
--)(
Kullanıcı avatarı
aytugmert
 
Kayıt: 26 Mar 2020 16:03
Meslek: muhasebe
Yaş: 29
İleti: 4
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: düzce

Cevap: hücreden veri okuma

İleti#2)  aytugmert » 27 Mar 2020 10:07

yok mu arkadaşlar yardımcı olacak kimse,
excel de sıralıcam yapacaklarını mesela
hücrede kargo işlemi varsa sonrkai hücreye .k yazcam ve o işlem tetiklenecek
hücrede alış işlemi varsa sonrakine .a yazcam alış işlemi tetiklenecek
böyle sıradakine geçecek.
sıradakine geçmesede olur en üsttekini yapsa bile olur. işlem bitince satırı sildiririm olmazsa.
bilgisi olup paylaşan olursa sevinirim. saygılar.
Kullanıcı avatarı
aytugmert
 
Kayıt: 26 Mar 2020 16:03
Meslek: muhasebe
Yaş: 29
İleti: 4
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: düzce

Cevap: hücreden veri okuma

İleti#3)  vkonca » 27 Mar 2020 10:43

merhaba,
bi modül aç içine
Kod: Tümünü seç
Sub k()
    MsgBox "Kargo"
End Sub

Sub a()
    MsgBox "alış"
End Sub


bunları yapıştır. daha sonra microsoft excel objects'ten sayfa1'in içine

Kod: Tümünü seç
Private Sub Worksheet_Change(ByVal Target As Range)
    satirNo = ActiveCell.Row
    satirNo = satirNo - 1
    acv = Trim(Range("A" & satirNo))
   
    If acv <> "" Then
        Run Replace(acv, ".", "")
    End If
End Sub


bunu yaz istediğin olacak. Bunu değiştirerek kendi koduna göre uyarlayabilirsiniz. Sadece "A" kolonuna yazman lazım ama. Benim attığımda bu kodları yapıştır A kolonuna .k yaz kargo mesajı verir .a yaz alış mesajı verir.
Kullanıcı avatarı
vkonca
Yeni Başlamış
 
Kayıt: 16 Oca 2020 09:38
Meslek: Bilgi İşlem
Yaş: 23
İleti: 46
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: TEKİRDAĞ

Cevap: hücreden veri okuma

İleti#4)  aytugmert » 27 Mar 2020 17:18

malesef ben isteğimi tam anlatamadım sanırım. cevabınız için teşekkürler.
ama komutlar istediğim gibi çalışmıyor. hücreye .k yazarsam ekrana kargo diye mesaj veriyor.
klavyede tuşa basmıyor.

işin özü şu ki; hücrelere alt alta şunları yazacağım
A1e .k
A2ye .a
A3hücresine .l
vs
excelde bana şunu yapacak. butona bastım, ismi başla butonu olsun,
klavyeden o hücrede ne yazıyorsa ona bassın

bölece butona basınca excel A1 hücresindeki .k yazısını klavyede yazarsa, klavyede tuş atatığım bir başka program tetiklenecek ve istediğim işlemleri yapıp excele geri dönecek.
10 saniye sonra excelde tuşa timer da koycam. bölece 10 saniye sonra A2 ye geçip .a yı görücek ve tekrar diğer programı tetikleyip sıradaki işlemi yapıcak.

böle böle tüm işlemler otomatik olacak. :D
çok mu şey istedim bilmiyorum. VBA dersleri izlemeye başladım bakalım daha en baştayım. karmaşık anlatım içinde şimdiden özür diler cevaplarınız için teşekkür ederim
Kullanıcı avatarı
aytugmert
 
Kayıt: 26 Mar 2020 16:03
Meslek: muhasebe
Yaş: 29
İleti: 4
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: düzce

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Cevap: hücreden veri okuma

İleti#5)  vkonca » 30 Mar 2020 08:12

aytugmert yazdı:malesef ben isteğimi tam anlatamadım sanırım. cevabınız için teşekkürler.
ama komutlar istediğim gibi çalışmıyor. hücreye .k yazarsam ekrana kargo diye mesaj veriyor.
klavyede tuşa basmıyor.

işin özü şu ki; hücrelere alt alta şunları yazacağım
A1e .k
A2ye .a
A3hücresine .l
vs
excelde bana şunu yapacak. butona bastım, ismi başla butonu olsun,
klavyeden o hücrede ne yazıyorsa ona bassın

bölece butona basınca excel A1 hücresindeki .k yazısını klavyede yazarsa, klavyede tuş atatığım bir başka program tetiklenecek ve istediğim işlemleri yapıp excele geri dönecek.
10 saniye sonra excelde tuşa timer da koycam. bölece 10 saniye sonra A2 ye geçip .a yı görücek ve tekrar diğer programı tetikleyip sıradaki işlemi yapıcak.

böle böle tüm işlemler otomatik olacak. :D
çok mu şey istedim bilmiyorum. VBA dersleri izlemeye başladım bakalım daha en baştayım. karmaşık anlatım içinde şimdiden özür diler cevaplarınız için teşekkür ederim


Aşağıdaki kodları bi modül içine yaz ve a sütununa örnek olarak .a .k .i gibi değeler yaz sonra başla sub'unu çalıştır.

Kod: Tümünü seç
Sub basla()
   
    SonSatir = ActiveSheet.UsedRange.Rows.Count
   
    For sayac = 1 To SonSatir
        gelenDeger = Sheets(1).Range("A" & sayac)
       
        If gelenDeger = ".k" Then
            Call k
        ElseIf gelenDeger = ".a" Then
            Call a
        ElseIf gelenDeger = ".i" Then
            Call i
        End If
    Next
   
End Sub

Sub k()
    MsgBox "Kargo Tuşuna Basıldı"
End Sub

Sub a()
    MsgBox "Alış Tuşu"
End Sub

Sub i()
    MsgBox "İrsaliye Tuşu"
End Sub
Kullanıcı avatarı
vkonca
Yeni Başlamış
 
Kayıt: 16 Oca 2020 09:38
Meslek: Bilgi İşlem
Yaş: 23
İleti: 46
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: TEKİRDAĞ

Cevap: hücreden veri okuma

İleti#6)  aytugmert » 31 Mar 2020 09:28

Malesef yapamadım.
düğme koyup ona yazdım gönderdiğiniz kodları, "Düğme 1 makrosu çalıştırılamıyor bu kitaplıkta olmayabilir" tarzı bi hata veriyor.

Vba bilmiyorum. makro bilgim yok. basit bir dille anlatmanız mümkünmü.
Kullanıcı avatarı
aytugmert
 
Kayıt: 26 Mar 2020 16:03
Meslek: muhasebe
Yaş: 29
İleti: 4
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: düzce

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Cevap: hücreden veri okuma

İleti#7)  vkonca » 31 Mar 2020 09:55

aytugmert yazdı:Malesef yapamadım.
düğme koyup ona yazdım gönderdiğiniz kodları, "Düğme 1 makrosu çalıştırılamıyor bu kitaplıkta olmayabilir" tarzı bi hata veriyor.

Vba bilmiyorum. makro bilgim yok. basit bir dille anlatmanız mümkünmü.


Sana verdiğim kodları herhangi bir modülün içine yapıştır. Daha sonra
A1'e .k
A2'ye .a
A3'e .i

yaz. Daha sonra kodları yapıştırdığın modüle gel. oradan sub basla() yazanın üstüne fareyle tıkla fare imleci orda olsun daha sonra f5'e bas kodlar çalışacak.

Sayfaya buton ekleyerek nasıl yaparım dersen. Butonu Ekle daha sonra makro yeri yazıyor altta ordan bu çalışma kitabını seçip yukarıda listelenecek olanlardan başla'yı seçmen lazım
Kullanıcı avatarı
vkonca
Yeni Başlamış
 
Kayıt: 16 Oca 2020 09:38
Meslek: Bilgi İşlem
Yaş: 23
İleti: 46
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: TEKİRDAĞ


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

cron
Bumerang - Yazarkafe