Bir tablodaki makroyu diğer tabloya nasıl uyarlarım

[HD1975]

Merhaba

Göndermiş olduğum hd1975 isimli tabloda bir makro var bu makroyu uyarlama
ismli tabloya yapamadım.iki tablo arasındak fark sadece sütun sıraları.

Yardımlarnızı bekliyorum

saygılar

H.D.

 

[dEdE]

Merhaba,
Ekli dosya işinizi görür umarım.

 

[HD1975]

Makroyu başka sayfaya atama

Sub Aktar()
Dim satır As Integer
Application.ScreenUpdating = False
metin = [B10] & [B11] & [B12] & [B13] & [B14]
Sheets("Sayfa3").Select
Range("A2:A" & [A65536].End(3).Row).Find(Sheets("Sayfa2").Cells(3, 2).Value, , , xlWhole).Activate
sk = WorksheetFunction.CountA(Range("a" & ActiveCell.Row & ":IV" & ActiveCell.Row)) + 1
Cells(ActiveCell.Row, sk) = metin
Sheets("Sayfa2").Select
Range("B10:B14") = ""
Application.ScreenUpdating = True
ActiveWorkbook.Save
End Sub

Bu makroda sayfa 3 de

1 2
a sütunu yerine d
b sütünu yerine e
c sütunu yerine g
d sütunu yerine h
e sütunu yerine m
f sütunu yerine n sütunu olan bir tablom var ve n sütunundan sonra fm sütünu devam ediyor

Yukardaki tablo 1 nolu sütun sıralamasına göre çalşıyor 2 nolu sütun sıralamasına göre uyarlama yapamıyorum.

Saygılar

 

[dEdE]

Merhaba,
Sorunuzu yukarıda yanıtlamıştım. Galiba görmediniz.

 

[HD1975]

Çok güzel olmuş ama ?

Çok güzel fakat notları sil dediğimiz zaman sayfa3 deki notları silmiyor.

 

[dEdE]

Çok güzel fakat notları sil dediğimiz zaman sayfa3 deki notları silmiyor.

Böyle birşey mi istemiştiniz.

 

[HD1975]

tam olarak olmamış

Sayfa 3 deki sadece o satırla ilgil notları silsin.
Ama yinede tüm notları silde kalabilir.

Saygılar

 

[dEdE]

Merhaba,

Sayfa 3 deki sadece o satırla ilgil notları silsin.

İstediğinizi silebilirsiniz.

 

[HD1975]

Bana bir harf öğretenin ?

Çok teşekkür ederim.

Hz Ali (K.V) nin buyurduğu gibi bana bir harf öğretenin bin yıl kölesi olurum.
Sözündeki manaya uygun bir kişiliksiniz

Saygılarımı sunuyorum.

Fazla ileri gitmemiş olmazsam eğer comboboxlar yapıldıktan sonra sayfaya
nasıl atılır ve nasıl aktif edilir.

Tekrar Teşekkür ederim.

H.D.

 

[dEdE]

Merhaba,

comboboxlar yapıldıktan sonra sayfaya nasıl atılır ve nasıl aktif edilir.

Sayfa üzerinde ComboBox oluşturmak için Araç Çubuklarından Denetim Araç Kutusu üzerindeki ComboBox (Karma Kutu) simgesini kullanabilirsiniz. Bu simgeye tıkladıktan sonra sayfa üzerinde istediğiniz noktaya gelerek mouse sol tuş basılı tutularak ComboBox çizilir.
Aktive edilmesi, içeriğinin doldurulması ise iki farklı yöntemle olabilir.
1-AddItem
2-RowSource
Aşağıda her iki yönteme ait kod örnekleri vardır.

Private Sub Workbook_Open()
For i = 2 To Sheets("Sayfa3").Cells(65536, "D").End(xlUp).Row
   Sheets("Sayfa2").ComboBox1.AddItem Sheets("Sayfa3").Cells(i, 4)
Next
End Sub

Private Sub Workbook_Open()
ComboBox1.RowSource = "Sayfa1!A1:A31"
End Sub

 

[HD1975]

Tam olarak anlamadım

Ben dediğiniz gibi yapıyorum fakat işlemi bitirdikten sonra sayfada
göremiyorum combo boxu

Aslında ben user form üzerinden yapıyordum orda kutuya gerekli verileri
gösterebiliyorum fkat yine sayfada kutuyu bir türlü aktif edemiyorum

Saygılar