aynı sayfada makro calıştırmak lütfen yardım

[kaan07]

Merhaba Excel.web.tr üyeleri ekte sunmuş oldugum dosyamda 2 adet problemım var sorular dosyanın içinde şimdiden yardımlarınız için çok teşekkür ederim

saygılarımla

 

[bedri41]

Ekteki örneği inceleyin
Kolay Gelsin

 

[kaan07]

Çok teşekkur ederim üstadım
üstadım manuel kısma yazdıgım veriyi kayıt tuşuna bastıgımda verinin manuel kısmından silinmesi nasıl oluyordu kayıt tusuna basınca veri hala orda duruyor
tesekkurler
saygılarımla

 

[bedri41]

Sub Kayıt () kodlarının sonuna aşağıdaki satırları ilave edin.

Range("C4:C11").Select
Selection.ClearContents
Range("C4").Select

Kolay Gelsin

 

[dEdE]

Merhaba,
Ben de aşağıdaki kodları hazırlamıştım. Bari boşa gitmesin.
Modüle yazılacak kod

Sub Aktar()
Satır = [J65536].End(3).Row + 1
Sheets("Sayfa1").Range("C4:C11").Copy
Cells(Satır, 11).PasteSpecial Paste:=xlPasteValues, Transpose:=True
Cells(Satır, 10).Value = Satır - 4
    Application.CutCopyMode = False
Cells(ActiveCell.Row, 1).Select
Sheets("Sayfa1").Range("C4:C11").ClearContents
End Sub

Otomatik işlem için J sütununa çift tıklamalısınız.
Sayfanın kod bölümüne yazılacak kod

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [J:J]) Is Nothing Or ActiveCell.Value = "" Then Exit Sub
    Sheets("Sayfa1").Range("K" & ActiveCell.Row & ":R" & ActiveCell.Row).Copy
    [D4].PasteSpecial Paste:=xlPasteValues, Transpose:=True
    Application.CutCopyMode = False
    Cells(ActiveCell.Row, 10).Select
End Sub

 

[kaan07]

her şey için cok tesekkurler üstadlarım
dede üstadım sizin otomatik olan formülde bir problem mi var sayfa kod bölümüne ekledim formülü fakat çalışmıyor
tesekkurler
saygılarımla

 

[dEdE]

Merhaba,
Ekli dosyayı dener misiniz?

 

[kaan07]

Merhaba,
Ekli dosyayı dener misiniz?

gunaydın dede tekrar tesekkur ederim yardımınız için
dosyaya hatırlatıcı ekledim(siteden kopya cekerek) yalnız ilgili tarih karşıma uyarı olarak çıktıgında sadece tarih geliyor ama ben o tarihin yanında da ilgili satırların gelmesini istiyorum mümkünmü yardımcı olabılırmısınız
yardım için çok teşekkür ederim
ayrıca karşıma uyarı çıktıgında ilgili yeri tekrar manuel kısma alayım ve son notuda yazıp kaydet dediğimde ekleme yapmadan sadece düzeltme yapsın
üstadım tekrar tekrar tesekur ederim
saygılarımla

 

[kaan07]

Ekteki örneği inceleyin
Kolay Gelsin

bedri bey kolay gelsin üstadım dünkü tabloda bir kaç değişiklik yaptım dede beye istinaden yazmıştım ama kendileri müsait değiller galiba sizin bakma şansınız varmı eğer müsaitseniz
teşekkur ederim
saygılarımla

 

[bedri41]

bedri bey kolay gelsin üstadım dünkü tabloda bir kaç değişiklik yaptım dede beye istinaden yazmıştım ama kendileri müsait değiller galiba sizin bakma şansınız varmı eğer müsaitseniz
teşekkur ederim
saygılarımla

Mesajınızı yeni gördüm.
Ekteki örneğini inceleyin ltf.
Kolay Gelsin

 

[kaan07]

teşekkurler

 

[KARTAL133]

merhabalar

aynı verileri farkı sayfaya atmak mumkun mu??

 

[bedri41]

merhabalar

aynı verileri farkı sayfaya atmak mumkun mu??

Tabiki mümkün. Kod içerisinde

Sheets("Sayfa1").Select
kısmındaki "Sayfa1" yerine yazılacak her sayfaya aynı işlemi yapar.

Kolay Gelsin

 

[KARTAL133]

Sub Aktar()
Satyr = [J65536].End(3).Row + 1
Sheets "Sayfa2" Range("C5:C19").Copy
Cells(Satyr, 11).PasteSpecial Paste:=xlPasteValues, Transpose:=True
Cells(Satyr, 10).Value = Satyr - 4
Application.CutCopyMode = False
Cells(ActiveCell.Row, 1).Select
Sheets "Sayfa2" Range("C4:C11").ClearContents
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [J:J]) Is Nothing Or ActiveCell.Value = "" Then Exit Sub
Sheets "Sayfa2" Range("K" & ActiveCell.Row & ":R" & ActiveCell.Row).Copy
[D4].PasteSpecial Paste:=xlPasteValues, Transpose:=True
Application.CutCopyMode = False
Cells(ActiveCell.Row, 10).Select
End Sub



öyle yaptım ama olması sorun nedır.

 

[bedri41]

Tabiki mümkün. Kod içerisinde

Sheets("Sayfa1").Select
kısmındaki "Sayfa1" yerine yazılacak her sayfaya aynı işlemi yapar.

Kolay Gelsin

Yukarıdaki ilave 2 no.lu mesajımdaki dosya içerisinde bulunan kodlar için

Kolay Gelsin