Verileri macro ile aktarabilir miyiz?

[yyhy]

Verileri macro ile aktarabilir miyiz?

 

[yyhy]

Arkadaşlar bu konuda bilgisi olan, katkı yapacak bir arkadaş yok mu?

Arkadaşlar bu konuda bilgisi olan, katkı yapacak bir arkadaş yok mu?

 

[halit3]

Arkadaşlar bu konuda bilgisi olan, katkı yapacak bir arkadaş yok mu?

marhaba

sarunuzun yanına kısa bir açıklama yapsaydınız iyi olurdu yoksa sorunuzun içeriğini öğrenmek için dosyanızı indirmek sorunda kalmazdım. sira bende mesela kota sorunu var.Belki başkalarındada vardır.

bu kod işinizi görürmü

Sub aktar()
deg = Sheets("Tablo").Range("Ck2").Value
If deg = 1 Then
yer = "Ocak"
ElseIf deg = 2 Then
yer = "Şubat"
ElseIf deg = 3 Then
yer = "Mart"
ElseIf deg = 4 Then
yer = "Nisan"
ElseIf deg = 5 Then
yer = "Mayıs"
ElseIf deg = 6 Then
yer = "Haziran"
ElseIf deg = 7 Then
yer = "Temmuz"
ElseIf deg = 8 Then
yer = "Ağustos"
ElseIf deg = 9 Then
yer = "Eylül"
ElseIf deg = 10 Then
yer = "Ekim"
ElseIf deg = 11 Then
yer = "Kasım"
ElseIf deg = 12 Then
yer = "Aralık"
Else
MsgBox "Sayfa seçimini yapmadınız"
Exit Sub
End If
Sheets("Tablo").Range("CR13:EP77").Copy
Sheets(yer).Range("p12").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Tablo").Select
MsgBox "işlem tamam"
End Sub

 

[yyhy]

Teşekkürler işimi gördü. Ellerinize sağlık.

 

[halit3]

Teşekkürler işimi gördü. Ellerinize sağlık.

iyi çalışmalar