Yardım. Makro ile ilgili.

[ahzola]

Merhabalar

Makro hususnda çokca, genel excel hususunda epeyce özürlü
bu kardeşinize yardımınızı esirgemeyiniz lütfen.

Aşağıdaki linkte konu açmıştım. Bir türlü sonuçlandıramadım.
Sayın dEdE nin sabrı ve yardımları için teşekkür ediyorum tekrardan.

Meramım şudur:

Aşağıdaki kod x kitabın "Depo" adlı sayfasında normal olarak çalışıyor.
Aynı kitabın başka bir sayfasında Kalın yazı ile belirttiğim yerleri değiştirip
(örneğin Sümbül Menekşe gibi) tekrar kullanmak istiyorum. Lakin muvaffak
olamadım bir türlü.

Olursa şayet makro üzerinde
olmaz ise şayet,
Ekli dosyamda bunu benim için yaparsanız müteşekkir olurum.

saygılarımla.

Public Satır
Sub Aktar()
Set s1 = Sheets(1)
Set s2 = Sheets("Depo")
Application.EnableEvents = False

If s1.Cells(Satır, 2).Value = "Karanfil" And s1.Cells(Satır, 4).Value = "Gül" Or _
s1.Cells(Satır, 4).Value = "Karanfil" And s1.Cells(Satır, 2).Value = "Gül" Then
If s1.Cells(Satır, 6).Value <> "" Then
son = s2.[I65536].End(3).Row + 1
If son < 8 Then son = 8

With s2
.Cells(son, 9).Value = s1.Cells(Satır, 1).Value
.Cells(son, 11).Value = s1.Cells(Satır, 2).Value
.Cells(son, 10).Value = s1.Cells(Satır, 3).Value
.Cells(son, 17).Value = s1.Cells(Satır, 4).Value
.Cells(son, 12).Value = s1.Cells(Satır, 6).Value
.Cells(son, 13).Value = s1.Cells(Satır, 7).Value
.Cells(son, 15).Value = s1.Cells(Satır, 8).Value
.Cells(son, 16).Value = s1.Cells(Satır, 9).Value
.Cells(son, 14).Value = s1.Cells(Satır, 10).Value
End With
End If
End If
Application.EnableEvents = True
End Sub

http://www.excel.web.tr/f48/makro-ile-veri-kopyalama-t122356/sayfa3.html

 

[ExcelF1]

Mesaj linkini verdiğiniz konuya yazılmıştır.