Başka Hücreden Veriyi Sabit Olarak Çekme

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Tarihe göre sırala Oylamaya göre sırala
Ben öyle bir duruma rastlamadım.
B sütunundaki hücrede kopyala yapıştır, elle yazma gibi işlem yapmadan kod devreye girmez.

Gerçek belgenizde B sütununa nasıl veri yazdığınızı ya da örneğin sayfada B sütununa yönelik olarak çalışan ve
F2+ENTER gibi işlem yapan bir makro kodu var mıdır, bilemiyorum tabi.

Verdiğim kodun devreye girmesini sağlayan koşul aynen şöyle;
If (Target.Column = 1 Or Target.Column = 2 Or Target.Column = 4) And Target.Row > 1 Then
Yani; işlem yapılan sütunun sütun numarası 1, 2 veya 4 (A, B, D sütunları) ve işlem yapılan satır numarası 1'den büyükse kod devreye girer.
Bu koşul sağlandıktan sonra da satır numarasına yönelik diğer kontrollere (alttaki If ve Elseif satırları) geçilir.

Sütun koşulu sağlandığında gerçekleşen satır kontrolleri;
-- işlem yapılan satır, 8, 40, 72.... gibi Adres satırlarının bir altındaki satır mıdır?
-- işlem satır, 33, 65 gibi Toplam satırlarının 3 satır sonrası kıdı?
-- işlem satırı, 10-29 veya 42-61..... gibi elle veri yazılmak için ayrılan ürün adlarının yazılacağı satır mıdır?

Yani R, S sütunlarında ne yaparsanız yapın, kod devreye girmez, R, S sütunlarında değişiklik yapıldıktan sonra
B sütunundaki ürün adını yazarsanız yeni haline göre veri yazılır, önceki yazılan hücreler etkilenmez.

Tahminim o ki; örnek belgeniz, gerçek belgenizin bir kopyası (formüller/makrolar vs içinde olmalı) değil ve
bu durumda da yapabileceğimiz bir şey kalmıyor malesef.

Verdiğim kodu, foruma eklediğinibelgeye uygulayıp bu belge üzerinde denemeler yaptığınıza emin misiniz?

.
 
Oyla 0 Olumsuz oyla
sorun anlaşıldı hocam.
kopyala yapıştır kısmında ufak bir sorun çıkıyormuş.

J hücresinden kopyaladığımız "küçük renkli poşet" yazısını, B hücresine yapıştır yapınca sorunsuz çalışıyor.
fakat I hücresine "5" yazdığımızda, J hücresine "küçük renkli poşet" yazdığımızda yani "5 küçük renkli poşet" şeklinde iki hücreyi birden kopyalayıp, sonra A sütununa yapıştırdığımızda kod çalışmıyor.
özetle tek hücreyi yapıştırınca çalışan kod, iki hücreyi aynı anda yapıştırınca çalışmıyor.
bunun çözümü var mı hocam.
 
Oyla 0 Olumsuz oyla
Hayırlı günler hocam.
eklediğim dosyada, daha önceki yaptığımız kodlamayı güncellememiz gerekti.
kopyala yapıştır işleminde kodlar çalışmadığı için bu yola başvurduk.

istediğimiz kod:
F hücresine miktar girdiğimizde, G hücresindeki ürünün geliş fiyatını I hücresine kalıcı olarak çekmek istiyoruz.
ayrıca bunu J-K-M hücrelerinde de almak istiyoruz.

yardımcı olabilir misiniz hocam?
 
Oyla 0 Olumsuz oyla
hocam G3-G34 ve K3-K34 içerisinde (62 ürünlük listede) aynı ürün 2 defa yazılırsa uyarı almak istiyoruz..

G35-G66 ve K35-K66
G67-G98 ve K67-K98

bu şekilde aşağı doğru (8002'ye kadar) 250 sayfamız var.
şimdiden tekrar teşekkür ediyorum.
 
Oyla 0 Olumsuz oyla
Merhabalar Sn. Epak ambalaj
ThisWorkbook (BuÇalışmaKitabı) bölümüne aşağıdaki kodları ekleyiniz.
- Bu kod tüm sayfalarda G ve K sütunu için kontrol yapar.
- Aynı ürün varsa Mesaj Kutusu ile Hücre Adresini gösterir ve Yeni Kayıt yapılan hücre içeriğini temizler.
VBA: 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

If Target.Column = 7 Then ' G Sütunu
    For x = 2 To Range("G" & Rows.Count).End(xlUp).Row
            If WorksheetFunction.CountIf(Range("G2:G" & Range("G" & Rows.Count).End(xlUp).Row), Cells(x, "G")) > 1 Then
            MsgBox Cells(x, "G").Address & " Hücresinde aynı ürün var." & vbNewLine & "Yeni kayıt silinecektir!", vbInformation, "ExcelDestek.com"
            Target.Value = Empty
        Exit Sub
        End If
    Next
End If


If Target.Column = 11 Then ' K Sütunu
    For x = 2 To Range("K" & Rows.Count).End(xlUp).Row
            If WorksheetFunction.CountIf(Range("K2:K" & Range("K" & Rows.Count).End(xlUp).Row), Cells(x, "K")) > 1 Then
            MsgBox Cells(x, "K").Address & " Hücresinde aynı ürün var." & vbNewLine & "Yeni kayıt silinecektir!", vbInformation, "ExcelDestek.com"
            Target.Value = Empty
        Exit Sub
        End If
    Next
End If

End Sub

End Sub
 
Oyla 0 Olumsuz oyla
hocam örnek dosyada belirtmeye çalıştım.
E sutununda liste aralığını belirttim.
o şekilde aşağı doğru 250 ayrı sayfa kullanıyoruz.

her sayfa aralığı içinde 62 kalem ürün listesi almak istiyoruz.
örnek G8 de olan ürünün aynısı, K12 de olsa uyarı almak istiyoruz.
silinmesine gerek yok, uyarı almamız yeterli olur.

özür diliyorum, vaktinizi alıyorum.
teşekkür ediyorum.
 

Ekli dosyalar

Oyla 0 Olumsuz oyla
Merhabalar Sn. Epak ambalaj,

Bir süredir işlerden dolayı Foruma zaman ayıramıyorum ancak sorunuzun çözülmesine sevindim. :)

Saygılarımla, iyi çalışmalar.
 
Oyla 0 Olumsuz oyla
Hayırlı sabahlar hocam
Sizinde emeğiniz/hakkınız geçti, vaktinizi aldık.
Çok teşekkür ediyorum. Allah Râzı Olsun.
Allâh kolaylık versin. Hayırlı çalışmalar hocam.
 
Oyla 0 Olumsuz oyla
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt