[Yardım]  Değer Atama

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

Değer Atama

İleti#1)  emiroglu07 » 13 Oca 2021 16:39

Üstadlar Merhaba excel tablomda C sutununa veri girildiğinde
A Stununa : ML
L Stununa : 1
M Stununa : 1
N Stununa : 186
verilerini sabit gelmesi için nasıl bir makro kullanabilirim
Kullanıcı avatarı
emiroglu07
Site Dostu
 
Adı Soyadı:AHMET
Kayıt: 07 Oca 2014 16:36
Konum: İSTANBUL
Meslek: TEKSTİL
Yaş: 33
İleti: 575
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DİDİM

Cevap: Değer Atama

İleti#2)  okutkan » 13 Oca 2021 16:49

emiroglu07 yazdı:Üstadlar Merhaba excel tablomda C sutununa veri girildiğinde
A Stununa : ML
L Stununa : 1
M Stununa : 1
N Stununa : 186
verilerini sabit gelmesi için nasıl bir makro kullanabilirim


C sütununda herhangi bir hücreye değer girildiğinde mi?
A sütununa ML derken,
a1 ML
a2 ML
a3 ML
...
...
Şeklinde tüm hücrelere mi bu değerler yazılacak?
Excel VBA konusunda profesyonel değilim. Excel VBA öğrenmeye çalışıyorum.
Sorulara cevap vermek için araştırıyorum; araştırdıkça daha fazlasını öğreniyorum.
Kullanıcı avatarı
okutkan
Siteye Alışmış
 
Kayıt: 27 May 2017 02:45
Meslek: pol. mem.
Yaş: 28
İleti: 386
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DENİZLİ

Cevap: Değer Atama

İleti#3)  okutkan » 13 Oca 2021 16:59

Kodu deneyin. C sütununda herhangi bir hücreye veri girilmeden de olsa giriş/çıkış yapıldığında; A1:ML L1:1 M1:1 N1:186 değerlerini alacak.

Kod: Tümünü seç
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then
Range("a1") = "ML"
Range("L1") = 1
Range("M1") = 1
Range("N1") = 186
End If
End Sub
Excel VBA konusunda profesyonel değilim. Excel VBA öğrenmeye çalışıyorum.
Sorulara cevap vermek için araştırıyorum; araştırdıkça daha fazlasını öğreniyorum.
Kullanıcı avatarı
okutkan
Siteye Alışmış
 
Kayıt: 27 May 2017 02:45
Meslek: pol. mem.
Yaş: 28
İleti: 386
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DENİZLİ

Cevap: Değer Atama

İleti#4)  emiroglu07 » 14 Oca 2021 08:51

Üstad C Stununda her hangi bir satıra veri girildiğinde o satırın hizasındaki A-L-M-N Satırlarına verilerin girmesini sağlamak amacım
c14 veri girdiğinde A14-L14-M14-N14 e bu kayıtları atmasını sağlamak amacım
Kullanıcı avatarı
emiroglu07
Site Dostu
 
Adı Soyadı:AHMET
Kayıt: 07 Oca 2014 16:36
Konum: İSTANBUL
Meslek: TEKSTİL
Yaş: 33
İleti: 575
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DİDİM

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

Cevap: Değer Atama

İleti#5)  okutkan » 14 Oca 2021 09:11

Kod: Tümünü seç
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then
rw = Target.Row

Cells(rw, "A") = "ML"
Cells(rw, "L") = 1
Cells(rw, "M") = 1
Cells(rw, "N") = 186

End If
End Sub

Excel VBA konusunda profesyonel değilim. Excel VBA öğrenmeye çalışıyorum.
Sorulara cevap vermek için araştırıyorum; araştırdıkça daha fazlasını öğreniyorum.
Kullanıcı avatarı
okutkan
Siteye Alışmış
 
Kayıt: 27 May 2017 02:45
Meslek: pol. mem.
Yaş: 28
İleti: 386
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DENİZLİ

Cevap: Değer Atama

İleti#6)  okutkan » 14 Oca 2021 09:21

Aşağı şekilde kullanırsanız, giriş yaptığınız c sütunu hücresinde herhangi bir veri varsa işlem yapar. Önceki paylaştığım kodda, c sütununda giriş yaptığınız hücrede herhangi bir veri olmadığında da işlem yapıyor.

Kod: Tümünü seç

Private Sub Worksheet_Change(ByVal Target As Range)
col = Target.Column
rw = Target.Row

If Target.Column = 3 Then

    If Cells(rw, col) > "" Then

    Cells(rw, "A") = "ML"
    Cells(rw, "L") = 1
    Cells(rw, "M") = 1
    Cells(rw, "N") = 186
   
    End If
   
End If
End Sub
Excel VBA konusunda profesyonel değilim. Excel VBA öğrenmeye çalışıyorum.
Sorulara cevap vermek için araştırıyorum; araştırdıkça daha fazlasını öğreniyorum.
Kullanıcı avatarı
okutkan
Siteye Alışmış
 
Kayıt: 27 May 2017 02:45
Meslek: pol. mem.
Yaş: 28
İleti: 386
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DENİZLİ

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Değer Atama

İleti#7)  emiroglu07 » 14 Oca 2021 09:24

Üstad eline sağlık tam istediğim gibi birde üstad
I stununa =J2-(J2/(1+(G2/100))) bu formülü
H Stununada =J2-I2 bu formülü işlem gören satırlara gore getirme nasıl olur
Kullanıcı avatarı
emiroglu07
Site Dostu
 
Adı Soyadı:AHMET
Kayıt: 07 Oca 2014 16:36
Konum: İSTANBUL
Meslek: TEKSTİL
Yaş: 33
İleti: 575
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DİDİM

Cevap: Değer Atama

İleti#8)  okutkan » 14 Oca 2021 09:41

Bunu ekleyin.

Kod: Tümünü seç
Cells(rw, "I") = range("j2")-(1+(range("g2")/100))
Cells(rw, "H") = range("j2")-range("I2")
Excel VBA konusunda profesyonel değilim. Excel VBA öğrenmeye çalışıyorum.
Sorulara cevap vermek için araştırıyorum; araştırdıkça daha fazlasını öğreniyorum.
Kullanıcı avatarı
okutkan
Siteye Alışmış
 
Kayıt: 27 May 2017 02:45
Meslek: pol. mem.
Yaş: 28
İleti: 386
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DENİZLİ

Cevap: Değer Atama

İleti#9)  emiroglu07 » 14 Oca 2021 09:49

Üstad bu formül bütün stunda işlem görmüyor sadece satırda 2 nolu satıda işlem yapıyor
Kullanıcı avatarı
emiroglu07
Site Dostu
 
Adı Soyadı:AHMET
Kayıt: 07 Oca 2014 16:36
Konum: İSTANBUL
Meslek: TEKSTİL
Yaş: 33
İleti: 575
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DİDİM

Cevap: Değer Atama

İleti#10)  okutkan » 14 Oca 2021 09:56

Cells(rw, "I") = cells(rw, "j")-(1+(range(rw, "g")/100))
Cells(rw, "H") = range(rw, "j")-range(rw, "I")
Excel VBA konusunda profesyonel değilim. Excel VBA öğrenmeye çalışıyorum.
Sorulara cevap vermek için araştırıyorum; araştırdıkça daha fazlasını öğreniyorum.
Kullanıcı avatarı
okutkan
Siteye Alışmış
 
Kayıt: 27 May 2017 02:45
Meslek: pol. mem.
Yaş: 28
İleti: 386
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DENİZLİ


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Google Adsense [Bot], halily ve 5 misafir

Bumerang - Yazarkafe