değişken olarak atama nasıl yapılır?

[cancan1221]

Yeni üyeyim.
Öncelikle herkese meraba.
kendi zevkime göre bir stok programı yapmaya çalışıyorum
R1C1 in başka bir sayfadaki verisine göre değişken olarak atamak istiyorum nasıl yaparım. şimdiden teşekkürler



Sub test1()
'
' test1 Makro
'

'
Range("T11").Select
Selection.Copy
Sheets("MALZEMESAYIM").Select
Application.Goto Reference:="R1C1"
Selection.End(xlToRight).Select
ActiveCell.Offset(0, 1).Range("A1").Select
Sheets("İRSALİYEGİRİŞBÖLÜMÜ").Select
ActiveCell.Offset(0, -17).Range("A1").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("MALZEMESAYIM").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 1).Range("A1").Select
Sheets("İRSALİYEGİRİŞBÖLÜMÜ").Select
Range("D11").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ""
Range("C11").Select
End Sub

 

[cancan1221]

Sheets("MALZEMESAYIM").Select
Application.Goto Reference:="R1C1"

R1C1 YAPTIĞIM ZAMAN DEVAMLI 1 NCİ SATIRA YAZIYOR.
R6C1 YAPTIĞIM ZAMAN 6. SATIRA YAZIYOR.
BENİM İSTEDİĞİM. BAŞKA ÇALIŞMA SAYFASINDAKİ BELİRTTİĞİM SATIRA YAZDIRMAK
MESELA R(?)C1 GİBİ BİŞEYLER YAPAMAZMIYIM.
YARDIMLARINIZ.

 

[Orion1]

Buyurun.

Application.Goto Reference:="R" & Sheets("Sayfa2").Range("B1").Value & "C1"

 

[cancan1221]

Buyurun.

Application.Goto Reference:="R" & Sheets("Sayfa2").Range("B1").Value & "C1"

üstadım teşekkür ederim gerçekten. önümdeki engeli açtın. sağolasın

 

[Orion1]

üstadım teşekkür ederim gerçekten. önümdeki engeli açtın. sağolasın

Rica ederim.
İyi çalışmalar.

 

[cancan1221]

hocam bir soru daha sormak istiyorum. kayıt ekleme yapıyorum yaptığım herşeyi log dosyası olarak kaydetmek istiyorum.
mesela şöyle br program yazdım.
Sub stkkayıt()
'
' stkkayıt Makro
'

'
Sheets("stokekle1").Select
Range("A22").Select
Selection.Copy
Application.CutCopyMode = False
Selection.Copy
Application.CutCopyMode = False
Selection.Copy
Sheets("malzemelist").Select
Application.Goto Reference:="R65000C1"
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Copy
ActiveCell.Offset(1, 0).Range("A1").Select
Sheets("log").Select
Application.Goto Reference:="R65000C1"
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "1/29/2017 22:04"
ActiveCell.Offset(0, 1).Range("A1").Select
Sheets("stokekle1").Select
ActiveCell.Range("A11").Select
Selection.Copy
Sheets("log").Select
Application.Goto Reference:="R65000C2"
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(0, 4).Range("A1").Select
Application.CutCopyMode = False
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "stok ekleme işlemi yapıldı."
With ActiveCell.Characters(Start:=1, Length:=27).Font
.Name = "Calibri"
.FontStyle = "Normal"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontMinor
End With
Selection.End(xlToLeft).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Sheets("stokekle").Select
End Sub
buraya devamlı aynı tarih saati atıyor o anki saati atmıyor. nasıl yapabilirim. excelde daha yeni olduğum için beni aydınlatırsan sevinirim. iyi çalışmalar.

 

[Korhan Ayhan]

Aşağıdaki gibi deneyin.

ActiveCell = Now

 

[Ömer BARAN]

......kayıt ekleme yapıyorum yaptığım herşeyi log dosyası olarak kaydetmek istiyorum.
mesela şöyle br program yazdım......

Merhaba, foruma hoşgeldiniz.

Belirttiğiniz işlemi için aşağıdaki kod'u kullanarak da yapabilirsiniz.
Kod satırlarını ve işlevlerini inceleyiniz, faydası olacaktır.
.

[FONT="Arial Narrow"][B]Sub stkkayıt()[/B]
Set [COLOR="Blue"]sek1[/COLOR] = Sheets("stokekle1"): Set [COLOR="blue"]ml[/COLOR] = Sheets("malzemelist")
Set [COLOR="blue"]lg[/COLOR] = Sheets("log"): Set [COLOR="blue"]wf[/COLOR] = Application.WorksheetFunction
If wf.CountBlank(sek1.[A2:D2]) > 0 Then
    [COLOR="blue"]MsgBox[/COLOR] "Eksik bilgi olduğundan kayıt yapılamaz!...", vbCritical
    sek1.[A2].Activate: Exit Sub
End If
[COLOR="blue"]mlsat[/COLOR] = ml.[A65536].End(3).Row + 1: [COLOR="blue"]lsat[/COLOR] = lg.[A65536].End(3).Row + 1
For [COLOR="blue"]sut[/COLOR] = 1 To 4
    ml.Cells(mlsat, sut) = sek1.Cells(2, sut)
    lg.Cells(lsat, sut + 1) = sek1.Cells(2, sut)
Next
lg.Cells(lsat, 1) = Now
lg.Cells(lsat, 6) = "Stok ekleme işlemi yapıldı..."
[COLOR="blue"]sek1.[A2:D2] = ""[/COLOR]
[COLOR="blue"]MsgBox[/COLOR] "Bilgiler diğer sayfalara aktarıldı...", vbInformation, "..:: cancan1221 ::.."
[B]End Sub[/B][/FONT]

 

[cancan1221]

teşekkür ederim. çok kısa sürede cevap veriyorsunuz.
İyi Çalışmalar.

 

[Ömer BARAN]

teşekkür ederim. çok kısa sürede cevap veriyorsunuz.
İyi Çalışmalar.

Kolay gelsin.
.