Soru alanları otomatik kopyalama

[incsoft]

Kodda hata yapmışız. Sanırım şimdi probleminiz çözülecek.

Sub aktar()

Application.ScreenUpdating = False

For t = 3 To 72
If Cells(t, "G") = "" And Cells(t, "H") <> "" Then Cells(t, "J") = Cells(t, "H")
If Cells(t, "G") <> "" And Cells(t, "H") <> "" Then Cells(t, "J") = Cells(t, "G")
Next

For t = 80 To 135
If Cells(t, "G") = "" And Cells(t, "H") <> "" Then Cells(t, "J") = Cells(t, "H")
If Cells(t, "G") <> "" And Cells(t, "H") Then Cells(t, "J") = Cells(t, "G")
Next

Range("G3:I11").Select
Selection.ClearContents
Range("G13:I40").Select
Selection.ClearContents
Range("G42:I72").Select
Selection.ClearContents
Range("G80:I135").Select
Selection.ClearContents
Range("R1").Select
Application.ScreenUpdating = True

End Sub

eke adapte ettim aktarmadı hocam

 

[Orion1]

If Cells(t, "G") = "" And Cells(t, "H") <> "" Then Cells(t, "J") = Cells(t, "H")
If Cells(t, "G") = "" And Cells(t, "H") <> "" Then Cells(t, "J") = Cells(t, "G")

t,j ye önce t,h yükleniyor.
sonra t,g yükleniyor.
bu durumda ilk t,j nin geçerliliği kalmıyor.
son t,j değer olarak atanıyor.

 

[incsoft]

If Cells(t, "G") = "" And Cells(t, "H") <> "" Then Cells(t, "J") = Cells(t, "H")
If Cells(t, "G") = "" And Cells(t, "H") <> "" Then Cells(t, "J") = Cells(t, "G")

t,j ye önce t,h yükleniyor.
sonra t,g yükleniyor.
bu durumda ilk t,j nin geçerliliği kalmıyor.
son t,j değer olarak atanıyor.

çözüm hocam? Mümkünse kod üzerinde revize edebilirseniz çok sevinirim. Şimdiden teşekkürler.

 

[bmutlu966]

Benim dikkatsizliğimden kaynaklı hata olmuş. Ayrıca makro modülde olmalı. Dosyadaki gibi dener misiniz?

 

[incsoft]

Benim dikkatsizliğimden kaynaklı hata olmuş. Ayrıca makro modülde olmalı. Dosyadaki gibi dener misiniz?

Teşekkürler.