hücredeki değişkene göre hücre seçme

[bduru]

Ek teki dosya işin türüne göre döküm alınacak sayfaları belirleyin tek tuşla o sayfaları yazıcıdan alma makrosudur. Şu haliyle dosyada sorun yok çalışıyor ama döküm alınacak ve alınmayacak sayfalar Visual basic ten değiştiriliyor. Benim istediğim ise işin türüne göre döküm alınması,alınmaması gereken sayfalar değişmesi gerekirse bu işi Visual Basic e girmeden sadece sayfadaki G16,H16,G17,... hücrelerini değiştirerek döküm almasını istiyorum.

Sub SEC()
If Range("B6") = Range("F16") Then
Range("E4,E10").Select
üstteki satırı Range("işte buraya G16 hücresinde yazılı hücreleri seç gibi").Select bir makro satırı nasıl yazabiliriz.
Selection.Value = Range("F1").Value
.
.
End sub

bu nasıl yapabileceğim konusunda yardımcı olarabilirmisiniz ,iyi geceler

 

[Ömer]

Merhaba,

Tam olarak ne yapmak istediğinizi anlayamadım.

İstediğiniz bu şekilde olabilir.

Sub Sec()
Dim c As Range
Set c = Range("F16:F19").Find(Range("B6"), LookIn:=xlValues)
    If Not c Is Nothing Then
        Range(Range("G" & c.Row).Value).Select
    End If
End Sub

.

 

[bduru]

İyi geceler

ek dosyanın saysec modülünde yer alan sec makrosunda
Range("E4,E10").Select
Selection.Value = Range("F1").Value
üstteki iki satır yerine
Range("Range("G16").Value").Select
Selection.Value = Range("F1").Value
nasıl yazılır.
Yani G16 hücresindeki veride E4,E10 ama bunu tanımlayamadım, sorunum bu

 

[Ömer]

Diğer mesajımda bu istediğini yazmıştım.

Sub Sec()
Dim c As Range
Set c = Range("F16:F19").Find(Range("B6"), LookIn:=xlValues)
[COLOR=green]'B6 daki değeri F16:F19 aralığında arar.[/COLOR]
    If Not c Is Nothing Then
        Range([COLOR=red]Range("G" & c.Row).Value[/COLOR]).Select
[COLOR=green]' Aranan değeri bulduktan sonra karşısında G sütunudaki değeri seçer.[/COLOR]
    End If
End Sub

Seçme işleminde sonra ne yapacaksanız onu ilave edebilirsiniz.

Örnek end if satırından önce.

Selection.Value = Range("F1").Value

bu satırı ilave edebilirsiniz.

Sub Sec()
Dim c As Range
Set c = Range("F16:F19").Find(Range("B6"), LookIn:=xlValues)
    If Not c Is Nothing Then
        Range(Range("G" & c.Row).Value).Select
        Selection.Value = Range("F1").Value
    End If
End Sub

gibi..

.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki ifadeyi kullanabilirsiniz.

Range(Range("G16").Text) = Range("F1")

 

[bduru]

Teşekkürler

Ömer bey aslında ilk mesajınızı ilk anda anlayamamıştım ama şimdi bir ilave ile sayenizde sorunu tam olarak çözdüm teşekkürler. son halini de ekledim. herkese iyi geceler, teşekkürler.

 

[natura]

bende faydalamdım. konuyu açan ve yardımcı olanlara teşekkür ederm.