Kopyala bul yapıştır

[nadirornek]

Merhaba,
Ekli dosyamda,ABC sayfamın G sutununda G9 hücresinden başlayıp sona kadar kopyalayacak ve Veri sayfamın A sutununda ABC sayfamdaki G9 hücresini bulup Veri sayfamın A sutununa bulduğu yerden aşağıya doğru ABC sayfamın G sutununu yapıştıraçak bir koda ihtiyacım var.

 

[hımmmmmmmm]

Merhaba,
Ekli dosyamda,ABC sayfamın G sutununda G9 hücresinden başlayıp sona kadar kopyalayacak ve Veri sayfamın A sutununda ABC sayfamdaki G9 hücresini bulup Veri sayfamın A sutununa bulduğu yerden aşağıya doğru ABC sayfamın G sutununu yapıştıraçak bir koda ihtiyacım var.


Dim BUL As Double
Set ABC = Sheets("ABC")
Set VERI = Sheets("Veri")

G9 = ABC.[G9] ' G9 Daki sayı
SON = ABC.Range("G9:G65000").End(4).Row ' G9 Sütunu Son satırı
OKU = ABC.Range("G9:G" & SON).Value ' G9 daki tüm verileri oku
KAC = SON - 9 ' ABC deki verielr Kaç Tane

On Error Resume Next
BUL = VERI.Range("A:A").Cells.Find(What:=G9, LookAt:=xlWhole).Row ' G9 Veri sayfasında ara, varsa satırı bul

'G9, Veri sayfasında bulunamadı-----------------------
If BUL = 0 Then
C = MsgBox("ABC Sayfasındaki G9 Hücresinde Aranan değer; " & G9 & ", Veri Sayfasında A sütununda Bulunamadı", 56, "Veri hakkında")
Exit Sub
End If

'G9, veri sayfasında Bulundu--------------------------
VERI.Range("A" & BUL & ":A65000").ClearContents 'Bulunan satırdan sonrakileri temizle
VERI.Range("A" & BUL & ":A" & BUL + KAC).Value = OKU 'Okunan değerleri veri sayfasına yaz sayfaya yaz

 

[nadirornek]

Teşekkürler emeğinize sağlık kod güzel çalışıyor.

 

[nadirornek]

Aynı kod mantığı ile ABC sayfasının O sutununu Veri sayfasının C sutununa aldırabilirmiyiz.

 

[hımmmmmmmm]

Aynı kod mantığı ile ABC sayfasının O sutununu Veri sayfasının C sutununa aldırabilirmiyiz.

merhaba..
dosya ekde... yalnız bir durumu çözüme kavuşturalım...
ABC sayfasındaki G9 veya O9 ki veriler, veri sayfasında karşılığı olan sütunlarda bulunamazsa; ABC sayfasındaki tüm veriler; VERİ sayfasına, sondan itibarenmi kopyalanacak ...
Program G9 veya O9 daki verileri bulamadığı zaman uyarı vermekte...

 

[nadirornek]

Evet bulamadığı zaman veri sayfasının en sonuna ilave edecek

 

[nadirornek]

Merhaba,

Dosyayı inceledim, benim amacım ; ABC'deki sadece G(9) hücresi ile Veri'deki A sütununu komple karşılaştıracak. A sütununda bulduğu yerde, ABC'deki G ve karşılık gelen O sütunundaki tüm verileri Veri'deki A ve C sütunlarına yapıştıracak.

 

[hımmmmmmmm]

Merhaba,

Dosyayı inceledim, benim amacım ; ABC'deki sadece G(9) hücresi ile Veri'deki A sütununu komple karşılaştıracak. A sütununda bulduğu yerde, ABC'deki G ve karşılık gelen O sütunundaki tüm verileri Veri'deki A ve C sütunlarına yapıştıracak.

selam...
G9 daki veriye göre; G ve O sütunu verilerini, A ve C sütununa aktarma...
G9 daki veri A sütununda yoksa, son satırdan itibaren aktarma...
G9 daki veri, A sütununda varsa, bulduğu satırdan itibaren aktarma...

dosya ekde...

 

[nadirornek]

Teşekkürler çok güzel oldu emeğinize sağlık