a,b,c sutundaki verileri taşıma

[smmmay]

herkese merhaba

ekte bulunan dosyadaki sayfa1 deki listenin a b c satırlarının d satırına yazılacak açıklama ile sayfa2 ye taşınması mümkün olabilir mi?

 

[Ömer]

Merhaba,

Sayfa1 in kod bölümüne;

Private Sub Worksheet_Change(ByVal Target As Range)
 
Dim Syf As Worksheet, son As Long
 
If Intersect(Target, [D2:D65500]) Is Nothing Then Exit Sub
 
Set Syf = Sheets("" & Target & "")
son = Syf.Cells(Rows.Count, "A").End(xlUp).Row + 1
 
Range(Target.Offset(0, -3).Address & ":" & Target.Offset(0, -1).Address).Copy _
    Syf.Range("A" & son)
 
End Sub

.

 

[smmmay]

Merhaba,

Sayfa1 in kod bölümüne;

Private Sub Worksheet_Change(ByVal Target As Range)
 
Dim Syf As Worksheet, son As Long
 
If Intersect(Target, [D2:D65500]) Is Nothing Then Exit Sub
 
Set Syf = Sheets("" & Target & "")
son = Syf.Cells(Rows.Count, "A").End(xlUp).Row + 1
 
Range(Target.Offset(0, -3).Address & ":" & Target.Offset(0, -1).Address).Copy _
    Syf.Range("A" & son)
 
End Sub

.

üstad ilginize teşekkürler.dediğinizi yaptım ama olmadı

 

[Ömer]

Önce linkleri inceleyiniz.

Makroları etkin kılmak.Güvenlik düzeyini düşürmek

Sayfaya Ait Kodlar ve Uygulama Yöntemleri (Resimli Anlatım)

.

 

[smmmay]

üstad çok teşekkürler.gönderdiğiniz sayfalardan gerekli ayarları yaptım veri taşıma işlemi başarılı oldu.aynı işlemi a,b,c,d,f,g,h,ı gibi sütünlarada yapmak istesem.kodda neresini değiştirmem gerekli teşekkürler.

 

[smmmay]

merhaba üstad dediğiniz gibi oldu.aynı işlemi a,b,c,d,e,f,g,h,ı,i gibi sütunlara uygulamak için kodda nasıl bir değişiklik yapmalıyım.

 

[Ömer]

Sayfa ismini hangi sütuna gireceksiniz.

.

 

[smmmay]

o sütununa

 

[Ömer]

Bu şekilde deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
 
Dim Syf As Worksheet, son As Long
 
If Intersect(Target, [[COLOR=red]O[/COLOR]2:[COLOR=red]O[/COLOR]65500]) Is Nothing Then Exit Sub
On Error GoTo bulamadım
 
Set Syf = Sheets("" & Target & "")
son = Syf.Cells(Rows.Count, "A").End(xlUp).Row + 1
 
Range("[COLOR=blue]A[/COLOR]" & Target.Row & ":[COLOR=blue]I[/COLOR]" & Target.Row).Copy Syf.Range("A" & son)
 
Exit Sub
 
bulamadım:
MsgBox "Aranan Sayfa Bulunamadı"

End Sub

.

 

[smmmay]

tamam üstad buda şahene oldu.son birşey daha rica edeceğim sizden.sayfa2 yerine başka açıklama yazmak istesek kodda nereyi değiştireceğiz.

 

[Ömer]

Açıklama yazınca işlem ne olacak?

.